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TY: 

OPCOM 

CT: 

This module contains the logic to format security alarm messages. 


! Environment: 


VAX/VMS operating system. 


Author: 


Creati 


MODIFI 


CW Hobbs, from original by Steven T. Jeffreys 

on date: 

1-Jul-1983 (From OPCOMRQST .B32) 

ED BY: 

v03-007 acences Andrew C. Goldstein, eae ~1984 16:44 
ie off SYSUAF fields mod report, since AUTHORIZE isn't 


reper ting shen. Allow zero length volume labels, and display 
as 


V03-006 MHB0141 Mark Bramhall 2-May-1984 
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16-Sep-1984 01:48: AX-11 BL 
12-8681 382 93:98:20 OPCOM.SR 
Allow 0 Length node name and geqevore packet strings. 

Add SYSUAFF packet to UAF additions. 

Correct SYSUAF and NETUAF record processing. 

Substitute “‘(None)"’ for 0 Length node names. 


Format password packets using FAO's AF filter. 
Correct SYSUAFF packet expansion strings. 


v03-005 CwH3005 CW Hobbs 12-Apr-1984 
se the SFAO macro to call fao, rather than direct calls 
to SYSSFAO entry. 


v03-004 RSHO127 R. Scott Hanna 21-Mar-1984 
Modify PUT_PKT_IMGNAM to display (None) when there is no 
image name. Modify PUT_PKT_PRIVUSED to display (None) when 
no priviliges were needed fo access the file. Modify FORMAT_VOL 
to provice for optional volume set name. Remove PKTTYP_EPID 
C 


OPCSSECURITY iss-32 
vou=000 cisecur 
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74 acket from detached loginout messages. Add PKTTYP_STATUS to 
75 ogin failure messages. Remove formatting of record type ACL 
messages. 
v03-003 RSHO113 R. Scott Hanna 12-Mar-1984 
Add the routines to format the security alarm messages. 
vO3-002 CWH3002 CW Hobbs 16-Sep-1983 
Correctly display node name with message. 
v03-001 CWH3001 Cw Hobbs 30-Jul-1983 


Various and sundry things to make OPCOM distributed 
across the cluster. 


Page 
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13 
eg Senet 94:48:50 yapeM Suigecaa yt. oaze2 et 


; 39 ! BEGIN ' Start of SECURITY 

i 3 91 1 LIBRARY 'SYSSLIBRARY:L1B.L32"; 

3 37 94 : LIBRARY ‘LIB$:OPCOMLIB'; 

: 95 9 34 ] REQUIRE 'SHRLIBS:NMADEF .R32° ; 

z i 36 i ea ERNEEK REQUEST ! Common sanity checks 

; 1397 1 CLUSMSG_RQCB_SEND, i Send an RQCB to the cluster 

3 1”) ; a8 : DEALLOCATE ROCE : NOVALUE, pispose A a 

; 13¢ 1400 1 FORMAT MESSAGE, i Format ; Ronwoocur tty alarm message 
: 10 1401 1 LOG_MESSAGE ! Write a message to the logfile 

> 104 140¢ 1 NOTIFY LISTED_OPERATORS, i Notify operators on an operator List 
5 196 1208 : SEND_REPLY; ! Send a reply to the requestor 

> 10 1405 1 EXTERNAL 

; 108 1608 1 LCL_NODENAME : SBBLOCK, ' Name of local node (DECnet or cluster) 
; 199 ie 14 : REQUEST _NUMBER : LONG; ' Current request # 

5111 1409 1 FORWARD ROUTINE 

3 eee |e RO ee gl rae bra Dee 
>: 114 1618 1 VALIDATE_RECORD, i Validate the alarm record 

3 395 1415 1 FORMAT_FIL, ! Format file access alarms 

3 118 1414 1 FORMAT_SYSUAF, ' Format system UAF alarms 

. ay 1415 1 FORMAT _NETUAF, ' Format network UAF alarms 

: 118 1618 1 FORMAT-LOGB, ' Format breakin detection alarms 

3 119 1417 1 FORMAT_LOGI, ' Format login alarms 

: 120 1418 1 MAT_LOGF, ' Format login failure alarms 

3 i$ 1419 1 FORMAT_LOGO, ! Format logout alarms 

os ¢ 1420 1 FORMAT VOL, ' Format volume operation alarms 
.-% 1421 1 TLC ° ! Put common header Lines 

1 | RUTSNTOAL nes wove, | RUE getyork GA ne 

: 126 1424 1 “SOURCE LINE, : : i Put network source Line 

: 127 1425 1 PUT_PKT_STATUS ' Put status longword Line 

> 128 1426 1 PUT~PKT~PARENTPID, i Put parent PID Line 

3 134 14 § 1 ~PKT_PARE : NOVALUE, ! Put parent username Line 

Gee es a em te 

ety ote ee eC ef bee Tie meee tine is 

> 1 1438 1 PUT“PKT“PRIVUSED : NOVALUE, i Put privileges used Line 

> 135 1433 1 PUT~PKT~SYSUAFF : NOVALUE, i Put system UAF fields Line 

3 7 14 1 PUT_PKT_PASSWORD, ! Put password Line 

3; 137 1435 1 PUT_PKT_LOGNAM : NOVALUE, ' Put logical name Line 

ee Re re REESE 

> 140 1438 1 PUT~PKT~VOLPRO : NOVALUE, Put volune protection Line 

: 143 1220 i PUT K “DRDUE LG : NOVALUE. i Put peels Alig AE 

: 128 1441 1 PUT~PKT~ STRING : NOVALUE, i Put a packet of string data 

3 144 1608 1 PUT-KEYQORDS NOVALUE, ' Format and put a packet of keywords 
3; «6145 1445 1 PUT_STRING NOVALUE, ' Put string Sete 

; 6146 1444 1 PUT_STRING_ASCIC NOVALUE, ! Put ASCIC string data 
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DSCSA_POINTER] = ALARA_BUF); 


' 

i The packet count table contains a count of the number of data packets, 
: (by type), in the security alarm record 

PKT _COUNT_TAB : VECTOR CNSASK_PKTTYPNUM,BYTE), 

' 


i The packet index table contains the first PKT_POINTER_TAB index for 
each packet type in the security alarm record. 


PKT_INDEX_TAB : VECTOR CNSASK_PKTTYPNUM,WORDJ, 


47 45 PUT stat ASCID g ve ' Put ASCID , String data 
48 rk PUT"N : NOVALUE, i Put a CRL 
49 4 STRIP CBLANKS -TRAIL_ : NOVALUE, : Strip reiting blanks 
? rh STRIP_BLANKS_STRING : NOVALUE; ! Strip all blanks 
¢ 29 BUILTIN 
1 INSQUE, ' Insert entry onto a queue 
3 ¢ REMQUE ; ! Remove entry from a queue 
$ 4 LITERAL 
5 DATA_LINE SIZE = 55, ! Maximum size of data on a single Line 
$ 28 MAXPRTS_IR_REC = 8; ! Maximum number of packets in a record 
60 58 IND 
61 59 COLONS_BUF = UPLIT(BYTE(ZASCIC ': 7*)), 
6¢ 60 SPACES BUF = UPLIT(BYTE(ZASCIC °  ")) 
63 61 NONE_BOF $= UPLIT(BYTE(ZASCIC *(NoneS")); 
65 88 STRUCTURE 
66 64 ARRAY2 fied M,.N,UNIT=4] = 
67 65 M*NtUNIT 
68 98 (ARRAY2+] *N*UNIT+J*UNIT)<O,8*UNIT>; 
69 6 
70 68 OWN 
71 +4 : 
Le: 4 } The alarm message buffer and descriptor 
ie 7 ALARM_BUF : VECTORCOPCSK_MAXMESSAGE ,BYTE], 
76 74 ALARM_DESCR : SBBLOCKCDSCSC_S_BLNI 
7 75 PRESET(LOSCSW “LENT TH] = OPCSK_MAXMESSAGE, 
78 76 DSCSB_DTYPE] = DSCSK_DTYPE_T, 
79 77 DSC$B B-CLASS SS] = DSC$K-CLASS_D, 
80 78 ER 
81 79 
Hf 0 
8 1 
84 
85 
86 
87 


The packet pointer table contains a List of the addresses of all the data 
packets in the security alarm record. fee address of the first packet 

of a given data type is contained in the n‘th entry of the table where 

n is obtained from the PKT_INDEX_TAB. Each additional packet of the same 
type is in successive entries. 


KT_POINTER_TAB : VECTOR CMAXPKTS_IN_REC,LONG), 
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OPCSSECURITY 
vet 

: all data packets. 
PKT_SIZE_TAB 


: ARRAY2 CNSASK_PKTTYPNUM,2,WORDJ 
INITIAL (WORD™( 


' type of ante | 
and maximum number of packets for each type. 


RECID_FIL_SUCC : VECTORC13, BYTE) 
INITIAL(BYTE (4, 
NSASK_PKTTYP_FACMOD,1,1 
NSASK-PKTTYP~PRIVUSED. 1 
NSASK-PKTTYP~FILNAM, 1.1 
NSASK~PKTTYP~IMGNAM,1.1 


RECID_FIL_FAIL :y 


1b Ben-1964 01:48:59 
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! The packet size table contains the minimum and maximum data size of 


5 
QO,NSASS_PKT_IMGNAM, ! Image name 
4,4, ! File access mode 
4,4 ! Privilege used to access file 
1 1,NSASS_PKT_FILNAM, | File name 
1 1,NSA$S_PKT_DE ! Device name 
1 oNSASS_PKT_LOGNAM,  ! Logical name 
1 »NSASS_PKT_VOLN ! Volume name 
1 -NSASS-PKT-VOLSNAM, | Volume set name 
1 O,NSASS_PKT_NODENAM, ! Node name 
1 1,NSASS_PKT_USERNAM, ! User name 
1 O,NSASS_PKT-PASSWORD, ' Password 
1 4,4, ! yIc 
1 2.2, ' Volume protection 
4,4, ! Mount f ags 
ae ! Dismount flags 
8,8, ! Node ID 
4,4, ! Extended PID 
8,8 ! System UAF record fields 
4.45), i Status longword 


i The following tables describe the packets that may be found in each 
auditing record. In addition, it contains the minimum 


Fe 
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RECID_SYSUAF _ADD 


RECID_SYSUAF_DEL 


RECID_SYSUAF _MOD 
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TYP_FACM 
NSASK-PKTTYP7FILN 
NSASK-PKTTYP~IMGN 
: VECTORC7, BYTE) 
INITIAL(BYTE (2, 
NSASK_PKTTYP_SYSUAFF 1,1 
NSASK~PKTTYP~USERNAM, 1.15), 


AM; 1 
AMS 4 


RL4, BYTE) 

AL(BYTE (1, 
NSASK_PKTTYP_USERNAM,1,1)), 
(7,BYTE) 
L(BYTE < 


2. 
NSASK_PKTTYP_SYSUAFF,1,1 
NSASK~PKTTYP~USERNAM, 1.15), 


1 
OPCSSECURITY 18-50 =) AX-11 Bliss-32 V4.0-742 Page 6 
9055056 =3e0n 138% 9}: Hf 29 OPCOM. SRCISECURITY.B32¢1 . (2) 
: 261 1559 1 RECID_SYSUAF_COP : VECTORC7,BYTE | 
3 eg 1 65 1 = INITIAL (BYTE to, 
; 26 1561 1 NSASK_PKTTYP_SYSUAFF,1 
; 6 ! 6¢ ! NSASK-PKTTYP—USERNAM, 2,25), | 
; 66 1564 1 RECID_SYSUAF_REN : VECTORC7,BYT e, 
; 26 1565 1 INITIAL (BYT rte 
; re 1 66 1 NSASK _PKTTYP SYSUAFF,1,1 
: 369 1367 | NSASK_PKTTYP_USERNAM, 2,25), | 
: 271 1 «3 1 RECID_NETUAF_ADD =: VECTORC7,BYTE) | 
3 i 1 9 1 INITIAL(BYTE (2, 
: e7 1571 1 NSASK_PKTTYP -NODENAN. }.} 
: i 1378 NSASK-PKTTYP—USERNAM,2,2)), 
: , 1378 RECID_NETUAF_DEL TORE? .BYTE}, | 
: 278 1 i: 1 NSASK_PKTTYP_NODENAM, 1 
: ie 137? ! NSASK-PKTTYP-USERNAM, 2, 3S), 
: 281 1579 1 RECID_NETUAF _MOD : VECTORC7 BYTE, 
; Be 1580 1 INITIAL (BYT 
; <8 1581 1 NSASK Sertye _NODENAM, 2,2 
; 8% 138¢ NSASK~PKTTYP—USERNAM,4.4)), 
: 286 1584 1 RECID_LOGB_DIA : VECTORC7, BYTE) 
> 287 1585 1 INITIAL(BYTE (2, 
: 288 1586 1 NSASK_PKTTYP_PASSWORD,1,1, 
; 89 1387 NSASK~PKTTYP—DEVNAM, 1,25). 
: 291 1589 1 RECID_LOGB_LOC : VECTORC7 BYTE} 
3 % 1590 1 INITIAL(BYTE (2, 
: 29 1591 1 NSASK_PKTTYP_PASSWORD,1,1, 
: g9% 139¢ 1 NSASK-PKTTYP~DEVNAM, 1.25). 
: 296 1594 1 RECID_LOGB_REM : VE ECTORE IG, BYTE 
3 297 1595 1 INITIAL(BYTE ( 
: 298 1596 1 NSA$K_PKTTYP_NODEID,1.1, 
: 299 1597 1 NSASK-PKTTYP~PASSWORD.1.1, 
: 300 1598 1 NSASK-PKTTYP~DEVNAM, 1.1 
; 301 1599 1 NSASK-PKTTYP"NODENAM, { , / | 
3 0@ 1600 NSASK~PKTTYP—~USERNAM, 1,15), 
i 304 160 1 RECID_LOGB_NET  VECTORC13. BYTE]. | 
; 305 1603 1 INITIAL(BYTE ( 
s $] 1604 1 NSASK _PKTTYP -NODEID,1,1 z 
; 30 1605 1 NSASK-PKTTYP~PASSWORD, 1 
; 308 1606 1 NSASK~PKTTYP~NODENAM, i! g' 
: 09 1607 NSASK-PKTTYPUSERNAM, 1,15), | 
: 311 1609 1 RECID_LOGB_DET : VECTORC7 BYTE} 
: Be 1610 1 INITIAL(BYTE (2, | 
: 31 1611 1 NSASK _PKTTYP_PASSWORD, 1 
: 14 161g NSASK~PKTTYP—~USERNAM, 1, 15. 
i $16 1614 1  —- RECID_LOGI_BAT : VECTORC1, BYTE) | 
> 31 1615 1 INITIAL(BYTE (0)), 
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RECID_LOGI_DIA 


RECID_LOGI_LOC 


RECID_LOGI _REM 


RECID_LOGI _NET 


RECID_LOGI_SUB 


RECID_LOGI_DET 


RECID_LOGF _BAT 


RECID_LOGF _DIA 


RECID_LOGF _LOC 


RECID_LOGF_REM 


RECID_LOGF_NET 
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ECTORC4, BYTE) 

NITIAL (BYTE a, 
NSASK_PKTTYP_DEVNAM,1,2)), 

ECTORC4 BYTE) 

NITIAL (BYTE 7, 
NSASK_PKTTYP_DEVNAM,1,2)), 

ECTORC13, BYTE) 

NITIAL(BYTE (4, 
NSASK_PKTTYP_NODEID,1,1, 
NSASK-PKTTYP~DEVNAM, 1.1 
NSASK-PKTTYP-NODENAM, 1, 1 
NSASK~PKTTYP—~USERNAM, 1.15), 

ECTORC 10. BYE] 

NITIAL(BYTE (3, 
NSASK_PKTTYP_NODEID,1,1 
NSASK~PKTTYP-NODENAM, 1,1 
NSASK~PKTTYP—~USERNAM, 1,15), 

ECTORC4 BYTE) 

NITIAL(BYTE (1, 
NSASK_PKTTYP_EPID,1,1)), 

ECTORL4 BYTE) 

NITIAL (BYTE 


oF 
NSASK_PKTTYP_USERNAM,1,1)), 
CTORC4, BYTE) 
ITIAL(BYTE (1, 
NSASK_PKTTYP_STATUS,1,1)), 


TORC7 ,BYTE) 


: VEC 
INITIAL(BYTE (2, 


NSASK_PKTTYP_STATUS,1,1 
NSASK_PKTTYP—DEVNAM, 1,25), 


C7,BYTE) 


BYTE (2, 
NSASK_PKTTYP_STATUS,1,1 
NSASK~PKTTYP~DEVNAM.1.2)), 


RC16,BYTE 
AL(BYT 


OPCSSECURITY 1b-50 Sep-1984 AX-11 Bliss-32 V4.0-742 Page 8 
905 080 ats 7 9}: $8: 38 OPCOM.SRCISECURITY.B32¢1 9° 02) 
; 5 1672 NSASK_PKTTYP_USERNAM,1,1)), ; 
: ig 1675 1 RECID_LOGF_SUB : VECTORC7, BYTE) F 
; og 1676 1 INITIAL (BY TE (2, : 
3 1677 (1 NSASK_PKTTYP_EPID,1,1, : 
: eo 1978 : NSASK_PKTTYP"STATUS,1,1)), ‘ 
: 38 1680 1 RECID_LOGF_DET : VEC BYTE, F 
; BS 1681 1 Is INI arr get ITE (2 ‘ 
; 384 16 é 1 NSASK_PKTTYP_STATUS,1,1 ; 
; 385 1683 NSASK-PKTTYP_USERNAM, 1,1), : 
: $$ 1685 1 RECID_LOGO_BAT VECTORC1, BYTE : 
: 388 1686 | INITIAL(BYTE (0)), : 
: 390 1688 1 RECID_LOGO_DIA : VECTORCE4 BYTE) : 
: 391 1689 1 INITIAL(BYTE (1, ; 
: % 1690 NSASK_PKTTYP_DEVNAM,1,2)), : 
1: 394 1698 1 RECID_LOGO_LOC : VECTORL4 BYTE) F 
: 395 1693 1 INITIAL (BYTE ; 
; 396 1694 1 SSASK Cette _DEVNAM,1,2)), ; 
3 97 1695 1 3 
: 398 1696 1 RECID_LOGO_REM : VECTORC13,BYTE) : 
: 399 1697 1 INITIAL(BYTE (4, ; 
: 400 1698 1 NSASK_PKTTYP -NODEID. .s. ; 
: 401 1699 1 NSASK~PK7TYP~DEVN ; 
: 40 1700 1 NSASK-PKTTYP-NODENAM, 1,1 ; 
: 403 1701 NSASK~PKTTYP—“USERNAM, 1,15), : 
: 405 1708 1 RECID_LOGO_NET : VECTORE10. BYTE ; 
: 4606 1704 1 INITIAL(BYTE ( ; 
: 407 1705 1 NSASK -PRITVE _NODEID,1,1 : 
: 408 1706 1 NSASK~PKTTYP—~NODENAM, 1,1 : 
: 409 1707 1 NSASK~PKTTYP—USERNAM, 1.15), ; 
+ 610 1708 1 ; 
: 411 1709 1 RECID_LOGO_SUB : VECTORC4 BYTE) : 
; aie 1710 1 INITIAL(BYTE (1, : 
: 41 1711 (1 NSASK_PKTTYP_EPID,1,1)), : 
> 414 1718 1 ; 
> 415 1713 1 RECID_LOGO_DET : VECTORC1,B 3 
> 416 1714 1 WHITIALCOVTES (0)) F 
> 417 1715 1 : 
: 418 1716 1 RECID_VOL_MOU : VECTORC25,BYTE : 
> 41 1717 (1 INITIAL(BYTE (8, 3 
> 420 1718 1 NSASK_PKTTYP_UIC,1,1 ; 
> 421 1719 1 NSASK~PKTTYP-VOLPRO, 1.1, ; 
> 4 : 1720 1 NSASK~PKTTYP-MOUFLG, 1.1. : 
> 4 1721 1 SASK— KTTVBCINGNAM, 1.1, : 
+ b26 172 1 NSASK-PKTTYP—DEVNAM, 1,1, : 
: 425 1723 1 NSASK-PKTTYP~LOGNAM, 1.1. ; 
: 426 1724 1 NSASK-PKTTYP~VOLNAM, 1,1 3 
i 487 1725 | NSASK-PKTTYP_VOLSNAM,0,1)), ; 
: 429 17 i 1 RECID_VOL_DMOU : VECTO ORL19, BYTE : 
> 17 2 1 INITIAL (BY TE : 
: 431 1729 1 NSASK_PKTTYP_DMOUFLG,1,1, : 
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NSASK_PKTTYP_IMGNAM,1,1, 
NSASK“PKTTYP-DEVNAM,1.1. 
NSASKPKTTYP“LOGNAM, 1,1, 
NSASK-PKTTYP~VOLNAM 
NSASK-PKTTYP-VOLSNAM, 14! 1)), 


i The following tables contain the number of subtypes of each record 
type and a pointer to the table which describes the record content. 


RECTYP_FIL 


RECTYP_SYSUAF 


RECTYP_NETUAF 


RECTYP_LOGB 


RECTYP_LOGI 


RECTYP_LOGF 


: VECTOR CHSASE REECTYPNUR FIL. 


INITIAL (NS SASR_RECTY e 
RECID-FIL_SUCC,~ 

RECID-FIL-FAILS, 

VECTOR CNSASK RECTYPNUM SYSUAF +1) 

INITIAL LCNSASR_RECTYP NUR_SYSUAF, 
RECID-SYSU MFA ADB, 
RECID-SYSUAF—DEL, 
RECID_SYSUAE - MOD. 
RECID-SYSUAF —COP 
RECID-SYSUAF — “RENS, 

ECTOR CNSASK_RECTYPNUM_NETUAF +1] 

NITIAL (NSASR_RECTYPNUM_NETUAF, 
RECID-NETUAF_ADD, 
RECID-NETUAF —DEL 
RECID-NETUAF ~ “RODS, 

ECTOR CNSASK_RECTYPNUM LOGB+1] 

NITIAL (NSASR_RECTYPNUA_L 
RECID-LOGB_DIA, 
RECID-LOGB-LOC, 
RECID-LOGB-REM, 
RECID-LOGB- NET 
RECID“LOGB~DETS, 

ECTOR CNSASK_RECTYPNUM_LOGI+1) 

NITIAL (NSASR_RECTYPNUM_LOGI, 
RECID-LOGI_BAT,~ 
RECID-LOGI-DIA, 
RECID-LOGI-LOC, 
RECID-LOGI-REM, 
RECID-LOGI-NET, 
RECID"LOGI~SUB 
RECID-LOGI~DETS, 

VECTOR CNSASK_RECTYPNUM_LOGF +1) 

INITIAL (NSASR_RECTYPNUA_LOGF, 
RECID-LOGF_BAT,~ 
RECID-LOGF “DIA, 
RECID-LOGF-LOC, 
RECID-LOGF-REM, 
RECID-LOGF “NET, 
RECID-LOGF ~SUB 
RECID-LOGF~DETS, 


<oO 


ey 


cork OL igen3e V4.0-742 
OPCOM.SRCISECURITY.B32;1 


number of record types and a pointer 


own 
ww 
oo m™ 
rw -_ Le | 
oe ee +o - s 
-—~mw Ow + 
o- VO ao 
ow o> te) 
wv 11 - >_!t . - ss 
coco @es ss 8 ww en += 
oo £D-avE-@e- £2 *D ==> ss 
er 2D2<-OWwwsDwW 222520 22 wh 
im) ZaAMOUeZMo 2008 Z2ZQa eet 8 & & See 
ea a> t!etpetet st &ABrEO ar *22720-u0-~ 
Mee +~-OOOC0CCOOC rr 1 1 re UM OVUOOUI 
en K—VUVYUOI00O0O9O Kv VKH > WOOO0O 
ss YWOOOOCOCOO Ywoo Vue YZ IIIS 
Zor wey) Wwe wo iste t ee 8 
wo &@& £©teeeee et aw Fe st @ maaaadcaaa 
eoooonocHa eao a>>>>>>>> 
el FD ete elk ee Bk) ed ol ok ed el ee 
PQVVVOVVYYU  #EUUY eo PAZVVIVVVVYVYU 
KOwwwwwww eww oa EWMwWwwwwwww 
Vga2aacaacanae “Zac we “Y2aea0ccaeaecacer 
z~ 2m zm 
ws —_ we te 
| | ce | 
act ac —-—— Ze 
o- on e2a O- 
—e | dl aed ~ @ -— 
ve vueEN cv we 
wz wz ° wz 
> > ab 4 > 
2 > oe 
ve 
2a 
Ce | 
~n 
oro 
ce 
oO 
Bev 
oO oe 
oO | ~t 
Oo oOo a) 
=) > oe 
‘ a -<o 
a a ~ a 
> > e > 
L - £o f 
Yv ~ - =) 
w uw us 
a 4 mcemceres « 


i conti sali Sei eet aan aemeaik seme aoe eee aemnetk aeeeetk See See ae teeee some aati meet emai eee peel some cee see cee ee ee soe Seal 


DODO AAO OOAAOO COOOCCCCOCCoeK cK —-—— 
RPP. COC COCO COC a Mad aco ad ad an an ao aD 


ani cue aunt cee auet semi aed seri cee ometi aot cee uel cual geek coed seed coll oul eel col cull eel eel col cell coal, cool coal 


hDORKOK—UMTNOPR 


OPA TN 
OOCCCCCCSC eK eK KcKcecenK 
MUNAWAWAAPUPA AULA LAL 


. 
° 
. 
° 
. 
a 
. 
° 
. 
@ 
a 
° 
° 
. 
o 
. 
’ 
. 
° 
. 
’ 
. 
° 
. 
° 
. 
° 
7 
° 
. 
° 
. 
e 
. 
o 
. 
° 
7 
. 
o 
* 
° 
s 
~ 
o 
. 
° 
. 
° 
. 
° 
. 
° 
. 
6 
- 
° 
. 
e 
. 
° 
. 
° 
. 
© 
. 
e 
. 
we 
. 
a 
. 
o 
. 
° 
a 
*° 
. 
° 
. 
*° 
7 
° 
. 
° 
. 
ao 
. 
o 
. 
e 
o 
* 
. 
. 
. 
a 
a 
° 
- 
° 
. 
° 
. 
° 
. 
* 
. 
° 
. 
° 
. 
* 


OPCSSECURITY 
vOt=000 


1 


AAAGQAEMMAMNNYIVIVIVIVI RE BEEBE EEE PW 


NNNNNOAOARO 
incl ie wb a het oO Oto VOLAS MV O DONO AP UNO Die ee OWOBNAALSWN OO 


Pw eal eal eal eal eel eal eal eal eal wales eal ah ahah ah ah a ah Ab Ab Ah Ab ah eh eh ad halal eal al ea leal eal eal wale lee. ele wee wale ew) 


NOUS WN OS ODN A UE WN (OOO NOA UE WN OOS NOAUE WN OOOO 


000 0 00.00 00 00 00 00 00 00 G0 00 00 00 00 09.00 00 00 00 C0 CO 09 GD G9 GD OD C0 CD Cd C9 00 00 C0 G.CD (00 09 G0 09 00 C000 


MEWN—OOO 


ee ee ee i ee ee ee ee ee ee ee ee eee 


Go00009C 00000 
SN NOOO 


14 
1b-Sep-1986 01:48:5 AX=11 Bliss-32 
1e-808-1382 95:88 :2 OPCOM. SRCISECU 
GLOBAL ROUTINE SECURITY_HANDLER (BUFFER_DESC) : NOVALUE = 


'e4¢ 
! Functional description: 


This routine is the handler for all SECURITY messages received by OPCOM. 


4. 
TY 


Input: 


BUFFER_DESC : The address of a — buffer descriptor that 
describes the buffer containing the message. 


Implicit Input: 
None. 
Output: 
None. 
Implict output: 


Some accounting data will be updated 
to reflect the receipt of the message. 


Side effects: 
None. 
Routine value: 


diet te te et et ee te ee ee te ee ee ee 


None. 
BEGIN ! Start of REQUEST_HANDLER 
MAP 
BUF FER_DESC : SREF_BBLOCK; 
LOCAL 
MESSAGE_VECTOR : VECTOR C7,LONG], ! Message info 
ROCB : SREF_BBLOCK, ! RQCB data structure 
ocd : SREF_BBLOCK, ! OCD data structure 
MSG SREF BBLOCK ! Pointer to user request 
ON_BUF : VECTOR 64,BYT aa ! Buffer for preposition ("' on ** node) 
ON_DSC : VECTOR C2,LONG ! Desc for preposition 
INITIAL (64,0N_BUF), 
FOUND : LONG, ' Boolean 
SCOPE : LONG, ' Scope of request 
SCOPE_LIMIT : LONG, ' Loop control 
STATUS : LONG; 


! 
Make sure there is enough data in the request. 


= | 
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‘ 76 ! te FF eget PER DESCEDSCON LENGTH LSS (OPCSK_COMHDRSIZ + OPCSK_SECURITY_MIN_SIZE) : 
: 8 | i} RETURN; ! Ignore the request | é 
3 a : rt ; Do some common sanity checks. : 
; 28¢ 1 § iF NOT CHECK_REQUEST (.BUFFER_DESC, RQCB) | ; 
; 1880 THEN | : 
; 384 1881 RETURN; : 
: 385 188¢ MESSAGE _VECTORCO] = 0; ! Assume no errors | : 
: 3B i & i See if the requestor is issuing this request on another's behalf. | “ 
; 588 1885 ! If so, and the requestor does not have the privilege to do so, : 
: 260 1358 then dismiss the request. | : 
: 591 1888 2 iF .ROCBCROCB_L_SENDERUIC] NEQ .ROCBCROCB_L_UICI ; 
; 238 1889 THEN 3 
; 287 1309 i os -SBBLOCKCROQCB CROCB_L_PRIVMASK1], PRVS$V_OPER]) : 
; 595 1996 IF NOT ((.$BBLOCKCROCBCRQCB_L_SENDERUIC], 2,0,16,0] EQL .$BBLOCKCROCBCROQCB_L_UICI, 2,0,16,0]) AND | ; 
: 396 1893 3 (. SBBLOCKCROCBCROCB_L-PRIVMASK1], PRVS$V_GROUPJ)) | : 
Py } e 
; 598 1895 BEGIN 3 
; 599 1896 MESSAGE VECTORCO] = OPC$_ILLRQST; | : 
; 600 1897 MESSAGE_VECTOR[1J = 0; $ 
; 601 1898 END; : 
; 602 1899 ! : 
3 603 Hb 4 } Create a descriptor within the RQCB to point to the request text. : 
: 605 1908 MSG = .BUFFER_DESCCDSCSA_POINTER] + OPC$K_COMHDRSIZ; | ; 
; 606 190 ROCBCROCB_L_TEXT_LEN) = [MSGCOPC$W_SECURITY_LENGTHJ; : 
; 607 1904 IF (.RQCBCROCB_L-TEXT_LEN] GTR 0) : 
; 608 1905 THEN : 
: 609 1906 BEGIN 3 
; 610 1907 : : 
3 et) 1208 ; Create a buffer for the request text and copy the text to the buffer. : 
: 613 1910 & iF NOT (STATUS = OPCSGET_VM(RQCBCRQCB_L_TEXT_LENJ, ROCBCRQCB_L_TEXT_PIRI)) ; 
; 614 1911 3 THEN 3 
; 615 1316 4 BEGIN F 
; 616 191 4 DEALLOCATE_ROQCB(.RQCB); : 
; 617 1914 4 RETURN; 3 
; 618 1915 END; | 3 
; ah ay ERSROVE < .ROCOTROCE._1._FERT LEU), MSGCOPC$T_SECURITY_TEXT], .RQCBCRQCB_L_TEXT_PTRI); : 
> 621 1918 2 ELSE | F 
3 ? § a BEGIN : 
: ost 1991 There is no request text. Inform the requestor that this is not allowed. | : 
3 636 1998 MESSAGE _VECTOREO] = OPC$_ILLRQST; | ; 
3 627 1924 MESSAGE_VECTOR[1) = 0; 3 
; 628 1925 END; 3 
: 629 19 § ! : 3 
; 630 19 ! Find an OCD that can handle this request. The OCD is selected : 
s 631 1358 ! according to the SCOPE and UIC of the requestor. If the SCOPE : 
; 632 1929 ! is unspecified, then look for operator coverage starting in the F 


D 14 
OPCSSECURITY 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0- 
705-000 12-868 384 $33 £3 OPCOM. SRCISECURITY.B 
633 ! least privileged scope and continuing to the most privileged. 
If no OCD is found, then dismiss the request. 


if (-ROCBLROCB_B_SCOPE] EQL OPCS$K_UNSPEC) 
SCOPE_LIMIT = OPCSK_SYSTEM 


SCOPE_LIMIT = .RQCBCROCB_B_ SCOPE]; 
FOUND = FALSE; 
SCOPE = .ROCBLROCB_B SCOPE]; 
WHILE (.SCOPE GEQ 7SCOPE_LIMIT) AND (NOT .FOUND) DO 
IF NOT (FOUND = FIND-OCD(.SCOPE, .RQCBCRQCB_L_UICJ, OCD)) 


“ 


OOODOOOOOOOOODO 


= See dee Mh ab ah ah ah ah ab ad edt eh ed 


POSSESS SELES ELLE LE LOL LES. 


3 1930 ; 
; ! 1 
1338 ; 
5 1934 : 
; 8 1935 ; 
; 9 1 $ EL : 
3 0 1 : 
; 1 1938 $ 
; ¢ 1939 3 
; 1940 : 
3 4 1941 ; 
; 5 1 ¢ THEN : 
3 6 19 SCOPE = .SCOPE =- 1; $ 
3 7 1944 IF NOT .FOUND F 
3 8 1945 THEN ; 
3 9 1946 BEGIN F 
3 0 1947 MESSAGE _VECTORCO] = OPCS$_NOPERATOR; ! No operator coverage ’ 
3 1 1948 MESSAGE _VECTOR([1j = 0; : 
3 ¢ 1949 END; ’ 
3 1950 : 3 
3 4 1951 ! If there is an error message to output, ; 
; 2 1926 : do so and dismiss the request. | : 
; 7 1954 If .MESSAGE_VECTORCO] NEQ 0 ; 
; 8 1955 THEN ; 
; 9 1956 BEGIN ; 
3 0 1957 FORMAT _MESSAGE(.RQCB, MESSAGE VECTOR); ‘ 
; 661 1958 SEND _REPLY(.RQCB, MESSAGE_VECTOR); : 
: $6¢ 1959 DEALCOCATE_ROQCB(.RQCB); : 
; 66 1960 RETURN; F 
3: 664 1961 END; F 
; 665 1306 ! : 
; 666 196 ! Set the scope of the request. : 
; 667 1964 } 3 
; 668 1965 RQCBCRQCB_L_OCD) = .OCD; ' Save OCD address : 
3 $6? 1298 ROCBCROCB_B_SCOPE] = .OCDCOCD_B_SCOPE); ' Set request scope : 
; on) 1308 Get the preposition for the node name : 
3; oF 1970 IF .LCL_NODENAMECDSCS$W_LENGTH] NEQ 0 | : 
; 674 1971 THEN 3 
; 675 1976 BEGIN 3 
: 676 Hb 44, 4 Roan (STATUS = SGETMSG(MSGID=OPC$_ON_NODE, MSGLEN=ON_DSC, BUFADR=ON_DSC, FLAGS=1)) : 
; 678 1975 $signal_stop (.STATUS); $ 
; 679 Hp da F 
; 680 197 ELSE 3 
; 681 Hp 4 ON_DSC[O) = 0; 3 
; 68 197 ! 3 
3 ret oat Format the alarm message : 
; 685 1386 STATUS = FORMAT_ALARM(.RQCBCROCB_L_TEXT_PTR], .RQCBCRQCB_L_TEXT_LENJ, MESSAGE_VECTORCS)); | 

: rid 1984 ' Format the request message. Note that messages from users who do not 

3 ons 1382 } have security privilege are marked as counterfeit. 
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MESSAGE yecTort = 0; . ! Use 
IF, SBBCOCKLROCB ROCB_L_PRIVMASK1], PRVSV_SECURITY3 AND .STATU 
BEGIN 
MESSAGE_VECTOR[O] = OPCS$_SECUR_ALARM; 
MESSAGE-VECTOR(2] = ON_DSC; 
MESSAGE_-VECTOR(3] = .LCL_NODENAME(DSC$W_LENGTH]; i 
MESSAGE VECTOR 4] = .LCLINODENAMECDSCSA-SOINTERI; =! 
ELSE 
BEGIN 
MESSAGE_VECTOR[O] = OPC$_COUNTERFEIT; 
MESSAGE-VECTORL2) = .ROCBCLROCB W USERNAMELEN]; ' 
MESSAGE-VECTOR(3J = ROCBCROCB_T_OSERNAME); ' 
MESSAGE -VECTORL4] = ON_DSC; i 
MESSAGE_VECTOR(5] = .LCUL_NODENAMECDSC$W_LENGTHI; i 
MESSAGE “VECTOR 6] = .LCLINODENAMECDSCSA-POINTERS; | 


FORMAT _MESSAGE(.RQCB, MESSAGE _VECTOR); 
| Tell the cluster, notify operators and log the request. 
CLUSMSG_ROCB SEND(-1, CLM _SECURITY, .RQCB); 
NCTIFY_CISTEB_OPERATORS(.ROCB); 

LOG_MESSAGE(.RQCB); 


DEALLOCATE_ROCB(.ROQCB); 


1 END; ! End of 
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-PSECT 


00000 ALARABUF 
0800 00800 ALARM_DESCR: | 


02 0E& 00802 
00000000" 


0804 
0808 PKT_COUNT TAB: 


00818 “BLKB 
081C PKT_INDEX TAB: 
00842 “BLKB 
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The "' on "' field 
Length of nodename 
Address of nodename 


Length of username 


! Length of nodename 
! Address of nodename 


Format the security alarm message 
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SPLITS,NOWRT ,NOEXE ,2 


SOWNS ,NOEXE ,2 


“BYTE 14, 2 
“ADDRESS ALARM_BUF 
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.BYTE 
RECID_LOG] REM: 


-BYTE 


-BLKB 
RECID_LOGI NET: 
-BYTE 
-BLKB 
RECID_LOG! SUB: 
BYTE 
RECID_LOGI DET: 


RECID_LOGF BAT: 
RECID_LOGF DIA: 


-BLKB 
RECID_LOGF LOC: 

-BYTE 

“BLKB 
84 RECID_LOGF_REM: 

5 -BYTE 
RECID_LOGF_NET: 

-BYTE 

“BLKB 
RECID_LOGF SUB: 

BYTE 

8 -BLKB 
RECID_LOGF DET: 

-BYTE 

“BLKB 
RECID_LOGO BAT: 

-BYTE 

“BLKB 
RECID_LOGO DIA: 


RECID_LOGO LOC: 
RECID_LOGO_REM: 


-BYTE 


-BLKB 
RECID_LOGO NET: 
BYTE 


“BLKB 
RECID_LOGO SUB: 
RECID_LOGO DET: 


-BYTE 


1 -BLKB 
RECID_VOL_MOU: 
-BYTE 


.BLKB 
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BYTE 
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00000002 00A14 RECTYP_ Fite , 
00000000° ' “ADDRESS RECID_FIL_SUCC, RECID_FIL_FAIL : | 
$b00000% SOAs8 RECTYP “SiSAF! L. | 
00000000" 00000000' 00000000' 00000000' 00000000' o0a24 .ADDRESS RECID_SYSUAF_ADD, RECID SYSUAF_DEL, - ; 
RECID_SYSUAF_MOD, RECID_SYSUAF_COP, - : | 
RECID-SYSUAF REN. : 
00000003 00A38 RECTYP -NETUAF : ; | 
00000000" 00000000" 00000006" 00a3c -ADORESS nets teu Ape RECID_NETUAF_DEL, - ; 
00000005 00A48 RECTYP_LOGB: ; 7 
00000000" 00000000' 00000000" 00000000" 00000000° ooa4c [ADDRESS RECID_LOGB_DIA, RECID_LOGB LOC, - : 
RECID_COGB_REM, RECID_COGB_RET, - ; 
RECID-LOGB~DET ; 
00000007 00a60 RECTYP_LOGI: | ’ 
00000000" 00000000' 00000000" 00000000" 00000000' 00000000' 0064 [ADDRESS RECID_LOGI_BAT, RECID_LOGI_DIA, - ; | 
00000000" O0A7C RECID_COGI_COC, RECID_COGI_REM, - ; 
RECID-LOGI-NET, RECID-LOGI~SUB, - : 
RECID-LOGI—DET : 
00000007 O0A80 RECTYP_ -LOGF: ’ 
00000000" 00000000" 00000000' 00000000' 00000000' 00000000' 00A84 “ADDRESS RECID_LOGF_BAT, RECID_LOGF_DIA, - : 
00000000" O0A9C RECID_COGF_COC, RECID_COGF_REM, - : 
RECID“LOGF-NET. RECID~LOGF SUB, : 
RECID-LOGF DET : 
00000007 OOAAO RECTYP_ L060: , 
00000000" 00000000" 00000000' 00000006" 00000000*° 00000000' OOAA4 -ADDRESS RECID LOGO BAT, RECID LOGO DIA, F 
00000000" OOABC RECID_COGO_COC, RECID_COGO_REM, : 
RECID“LOGO-NET, RECID-LOGO- “SUB, - ; 
RECID-LOGO-DE : 
00000002 O0ACO RECTYP_ VOL: ; 
00000000' 90900000" OAC4 .ADDRESS RECID_VOL_MOU, RECID_VOL_DMOU : 
OACC RECTYP: .LONG 8 : 
00000000" 00000009" 00000000* 00000000" 00000000" 00000000' 00AD0 .ADDRESS RECTYP FIL. pRECTYP SYSUAF , : 
00000000" 00900000 OOAE8 RECTYP_RETUAF, RECTYP_LOGB, RECTYP_LOGI. - : 
RECTYP— LoGr. * eeciyP _LOGO, RECTYP _VOL 3 
COLONS_BUF = P.AAA 
SPACES BUF = P. AAB 
NONE _BOF = AAC 
.EXTRN CHECK sREQUEST CLUSMSG_RQCB_SEND 
SEXTRN DEALLOCAT acs 
SEXTRN FIND,  PORAAT A SAGE 
“EXTRN LOG eat NOTIFY: LISTED OPERATORS 
eEXTRN LOG “REPLY LCL NAM 
SEXTRN NUMBER, “OPCSGET_VM 


*EXTRN OyeeeETRee’ LIBSSTOP 
.PSECT SCODE$,NOWRT,2 
07FC 00000 -ENTRY SECURITY_HANDLER, Save R2.R3,R4,R5,R6,R7.- ; 1816 
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| 
R10 : 
5A 00906 CF 3 g MOVAB ui SHODENARE., R10 : 
E 4 AE MOVAB B(SP) : 
8 AE 40 8F 9A MOVZBL ON_ st. + 1851 
C AE 10 AE ; 01 MOVAB on “gue “ON DSC+4 ; 
3 06 AC D 1 MOVL §§ BUFFER DESC, R2 + 1873 
00462 &F 6 81 1 CMPW 3S s«(R2), 966 : 
E 3 BGEQU§ «1S : 
4006 BF be 0005) 18 PUSHR  #°RCR2 : 1879 
00006 CF g3 FB 7 CALLS a2 “eek REQUEST : 
61 F 00 A BLBS : 
4 00020 RET : 
50 AE 04 O002E 28 CLRL MESSAGE VECTOR + 188 
56 6E 00 00031 MOVL RE : 188 
50 38 «=6A6) SE 000 MOVAB ee tRa) RO : 
57 68 Ab 9E 000 MOVAB 104(R65, R7 : 
67 60 D1 0003C CMPL (RO), (R7) : 
1B 13 0003F BEQL © 4$ : 
16 32 ag 02 £0 90041 BBS #2, 5O(R6), 4$ + 1890 
02 =A 02 AO 81 00046 CMPW (RO), 2(R?) : 1892 
04 1 90048 BNEQ $ : 
08 31 A6 E8 00040 BLBS 49(R6), 4$ + 1893 
50 AE 0005807C 8F DO 00051 3s: MOVL #360572, MESSAGE_VECTOR + 1896 
54 AE D4 00059 CLRL iE SSAGE VECTOR+4 + 1897 
52 046 A 26 1 0005¢ 4$ ADDL3 #38, 4(R2), MSG + 1902 
5 0084 C6 9E 00061 MOVAB 132(R6), RB + 1903 
68 1A 3¢ 00066 MOVZWL 26(MSG). (RB) : 
1A 15 OO06A LEQ $ : 1904 
0088 £6 9F 0006C PUSHAB 136(R6) + 1910 
8 DD 0007 PUSHL RB : 
00006 CF 02 FB 0007 CALLS #2, OPCSGET_VM : 
59 50 DO 0007 VL —_ RRO, STATUS : 
6B 59 59 0007A BLBC STATUS : 
0088 06 1¢ A 68 28 90070 MOVC3 (RB), seinec). @136(R6) : 1916 
08 11 00084 BRB 6$ + 1904 
50 AE 0005807C 8F DO 00086 S$: MOVL #360572, yRESSAGE _VECTOR + 1923 
54 AE b4 008E CLRL MESSAGE | : 1984 
04 53 a6 «91: 00091 68 CMPB a + 1933 
0 if} 0095 BNEQ : 
53 1 00 00097 MOVL SCOPE_LIMIT : 1935 
4 11 0009A BRB +e : 
53 53 a6 9A 0009C 7S: MOVZBL 83(R6), SCOPE_LIMIT : 1937 
50 pi Se Ag 8$: CLRL Bg NDD, ; 1938 
5 53. Ab 9A OOOA MOVZBL 83(R6), SCOPE + 1939 
5 52 D1 DOAG 9$: CMPL SCOPE, SCOPE_LIMIT + 1940 
16 19 QO00A9 BLSS  10$ F 
21 5 8 OOAB BLBS FOUND, 11$ : 
04 ac F OOOAE PUSHAB ocd > 1941 
$ DD 00081 PUSHL  (R7) : 
@ DD 0B PUSHL SCOPE : 
00006 CF F B CALLS #3, FIND_OCD ; 
EG E OBA BLBS FOUND, 9$ 3 
p BD DECL COPE : 1943 
1 000BF BRB > 1941 
0B 8 C1 10$:  BLBS FOunp 11$ > 1944 
50 AE 00058061 8F DO 000C4 MOVL #360545, MESSAGE_VECTOR : 1947 
| 
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ttre -VECTOR+4 
SAGE-VECTOR 


mes VECTOR 


FORMAT_MESSAGE 
isa VECTOR 


‘ § SEND_REPLY 
OCD, _RO 


ST 
#1, LIBSSTOP 
ON_DSC 
(8) VECTOR+20 
6(R6 
mee FORMAT ~ALARM 
TATUS” 


RO, 
MESSAGE VE VECTOR*4 


AS00971, MESSAGE_VECTOR 

N DSC. MESSA GE_VECTOR+ : 
iat MESSAGE _VECTOR+12 
LCL -NODENAMES4” MESSAGE _VECTOR+16 
#360979, MESSAGE_VECTOR 

RO), ufESSA 

DS t RESSAGE-\ CTOR+1 
_NODEN MESSAGE VECTOR+20 
SHODERARE 4. MESSAGE_VECTOR+24 


C 
C 
E 
2. FORMAT _MESSAGE 
1 
1 
3 


e (SP) 

- CLUSMSG_RQCB_SEND 

» NOTIFY_LISTED_OPERATORS 
- LOG_MESSAGE 


o-oo 


Bete Se Se Se Se Sete ve 


Kk 14 

voo-800 18236p-1984 92:88:83 — YOBcOn. SacSSecoR\ Ti 85351 ie 
00006 cr 01 FB 0010r CALLS #1, DEALLOCATE_ROCB : 

04 OCI1A4 RE ; 2016 


; Routine Size: 421 bytes, Routine Base: SCODE$ + 0000 


14 
OPCSSECURITY 1h-Se -1984 01:48: AX-11 Bliss-32 V4.0-742 
905005 14-Sep-19 4 93:98:20 OPCOM. SRCISECURITY B32: 1 
; f 1 oi? } GLOBAL ROUTINE FORMAT_ALARM(RECORD_PTP, RECORD_SIZ, ALARM_DESCR_PTR) = 
: 7 : 018 1 !4¢ 
3 f ¢ 054 ! FUNCTIONAL DESCRIPTION: 
3s £ § 8 § 1! This is the main formatting routine. It validates the security alarm 
; 7 1! record, and then dispatches by record type to routines which format 
; 728 026 1! the alarm message. 
; 729 025 1! 
; 730 0 § 1! UT: 
> «731 0 1? RECORD_PTR : The security alarm record address. 
3 y ¢ 8 4 ! } RECORD_S1Z : Size of the security alarm record 
; £ 030 1 ! IMPLICIT INPUT: 
: «9 031 1! NONE . 
me 9 ; 1! 
$0 1 ! OUTPUT: 
; 738 034 1! ALARM_DESCR_PTR : The address of the security alarm message descriptor 
; (9 soe 1! s returned in this address. 
; 740 o38 1! 
3; 741 2037 1°! IMPLICT OUTPUT: 
: 7% Spee 1! NONE. 
3; 2039 1! 
3; 744 2040 1 ! SIDE EFFECTS: 
3; 745 2041 1! NONE. 
; 746 ek 1! 
3 «747 0435 1 ! ROUTINE VALUE: : , 
: 748 2044 1! SS$_NORMAL, a SFAO system service error, or 0 indicating the record is 
: 749 2045 1! nvalid. 
; 750 2046 1 !-- 
3; 751 Spee 1 
Hy oe 048 BEGIN ! Start of FORMAT_ALARM 
; spen 
: 754 050 P 
3; 755 2051 RECORD_PTR : REF $BBLOCK; 
; 756 $026 
3 Tor 205 LOCAL 
; 758 2054 STATUS : LONG; 
; 759 Spee 
; 760 b28 4 
3 re) Spee } Validate the record 
: ee 2059 STATUS = VALIDATE _RECORD(.RECORD PTR, .RECORD_312); 
: 76 360 IF NOT .STATUS THEN RETURN .STATOS; 
3 766 O08 ! Initialize the alarm descriptor 
3; 7 06 ; 
3; 768 064 ALARM_DESCRCDSC$W_LENGTH] = OPCSK_MAXMESSAGE; 
3 4 i 965 ALARM_DESCRCDSCSA_POINTER] = ALARR_BUF ; 
: 44) Oe? : Dispatch by record type to the routines which format the messages 
3 or? oes stay = (CASE .RECORD_PTRCNSASW_REC_TYPE] FROM 1 TO NSASK_RECTYPNUM OF 
: 775 071 NSASK_RECTYP_FILJ : FORMAT_FIL(.RECORD PTR); 
; 776 O7e NSASK_RECTYP~SYSUAF : FORMAT-SYSUAF(.RECORD_PTR); 
3; 777 07 NSASK_RECTYP_NETUAF : FORMAT_NETUAF(.RECORD_PTR); 


M14 
OPCSSECURITY 16-Sep-19 748: AX-11 Bliss-32 V4.0-742 Page 
at ty 12-38 - 2 94:08:28 OPCOM. SRCISECURITY .B 3251 ° 
; 77 74 NSASK_RECTYP_LOGB : FORMAT_LOGB(.RECORD_PTR); 
Sir 75 NSASK “RECTYP_ tt : FORMAT_LOGI(.RECORD_PTR); 
3 8 ASK-RECTYP_ tt : FORMAT_LOGF ECORD_PTR); 
; 781 7 SASK “RECTYP_L ng : FORMAT_LOGO(.RECORD PTR); 
; ree 28 NSABK RECTYP_ VOL FORMAT_VOL(.RECORD_PTR); 
; 186 aR} IF NOT .STATUS THEN RETURN .STATUS; 
3; 7 0 ¢ The alarm descriptor is modified as message lines are put in the buffer so 
3 re oa? we must restore it before we return. 
$ ree ° 5 ALARM -DESCRCDSCS$W_LENGTH] = OPCSK i yeaa -ALARM_DESCRCDSCSW_LENGTHI; 
$ 7 9 ALARM DESCRLDSCSA_POINTER] = ALARA_BUF 
3 Ry 43 Return the message descriptor. 
: 794 090 * ALARM _DESCR ANAL: = = ALARM, DESCR; 
; 795 091 RETURN SS$_NORMA 
; 796 2092 1 END; ! End of FORMAT_ALARM 
000C 00000 eENTRY FORMAT etree’ Save R2,R3 3 
53 0000" CF 9E 00002 OVAB ALARM_BESCR, R3 3 
08 AC DD 00007 PUSHL RECOR ; 
52 04 AC DO OO00A VL. -RECORD-PTR, R2 : 
52 DD 43 PUSHL g 
0000V CF 02 FB 0001 CALLS #2, VALIDATE_RECORD : 
78 50 €9 00015 BLBC STATUS, 1$ ~ : 
63 0800 8F B80 00018 MOVW #2048, A ng DESC : 
04 A3 F800 C3 9E 0001D MOVAB ALARM_B 0 CARA DESCR+4 : 
07 01 62 AF 00023 CASEW (R2) * "7 3 
0028 0022 0019 0010 90027 1$: WORD von : 
004F 0046 003D 0034 0002F $-1$,- 3 
4$-1$.- ; 
5$-1$,- F 
6$-1$,- 3 
7$-1$,- 3 
8$-1$,- 3 
9$-1$ 3 
52 DD R2 3 
T FB #1, FORMAT_FIL ; 
D1 10$ : 
2 0D Re $ 
1 FB #1, FORMAT_SYSUAF : 
4 11 10$ ; 
2 oD R2 3 
1 fo #1, FORMAT_NETUAF Pt 
1 10$ ; 
DD Re 2 
FB #1, FORMAT_LOGB ; 
: 11 10$ ; 
i PB #1, FORMAT_LOGI 
% if 10$ . : 


22 
(4) 


2071 
2072 
2073 
2074 


2075 


Of 


OPCSSECURITY =1984 01:48: AX-11 Bliss-32 V4.0-742 Page 23 
vat tty ats ri 94:28:28 OPCOM. SRCISECURI TY .B3251 * a 
52 DD 0064 7$ PUSHL Re : 2076 
0000v CF FB 0066 CALLS #1, FORMAT_LOGF : 
19 11 00068 BRB 10$ : 
52 DD 0006D 8$ PUSHL R + 2077 
0000v CF r FB O06F CALLS #1, FORMAT_LOGO : 
7 11 00074 BRB 10$ : 
2 OD 0076 9$: PUSHL R2 + 2078 
0000v CF or FB 0007 CALLS #1, FORMAT_VOL ; 
13 9 £9 0007D 10$:  BLBC STATUS, + 2080 
63 0800 8F 63 A3 00080 SUBW3 ALARM_DESCR, #2048, ALARM_DESCR : 2085 
04 A3 F800 C3 9E 00086 MOVAB  ALARM“BUF, ALARM_DESCR+ + 2086 
0c BC 5 9 0008C MOVAB ALARM"LESCR, @ALARM_DESCR_PTR + 2090 
50 01 D0 00090 MOVL #1, RO : 2091 
04 00093 11$: — RET + 2092 


; Routine Size: 148 bytes, Routine Base: $CODE$ + 01A5 
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7 ROUTINE VALIDATE _RECORD(RECORD_PTR, RECORD_SIZ) = | 


Mw 


le 


FUNCTIONAL DESCRIPTION: 


oo 
oO 


This routine validates the security alarm record. 


Sse 


INPUT 


SSSSSS 
GFAP SN 


“RECORD_PTR : Security alarm record address. 
RECORD=S1Z : Size of the record. ? 


i IMPLICIT INPUT: 
: NONE . 

i OUTPUT: 

NONE . 

i IMPLICT OUTPUT: 
NONE . 

i SIDE EFFECTS: 

=! NONE . 

i 


ROUTINE VALUE: 
SSS$_NORMAL or 0 if the record is not valid. 


BEGIN ! Start of VALIDATE_RECORD 


AWA ARIPIPONIPINPONIPONNY 2 2 I OO Oe 


LOCAL | 
PKT PTR : REF SBBLOCK, | 
SUBTYPE PTR : REF VECTOR 
RECID PTR : REF VECTOR(,BYTE), 
8 PKT_TYPE — : LONG, 
f PKT™SIZE LONG, 
8 D LONG INITIAL(O), 
83 COUNT LONG INITIAL(O). | 
83 LONG; 
83 
84 


t 
: Validate the record header fields. 


iF (.RECORD_SIZ_LSSU NSASK_RECHDR_LENGTH) OR | 
(RECORD-PTREINSASW_REC_TYPE] EGLU 0) OR 
RECORD -PTRENSASW-REC-TYPE] GTRU .RECTYPLO]) OR | 
“RECORD ~PTRENSASW REC SUBTYPE] EQ 
ECORD-PTRENSASW-REC-SUBTYPE) GTRU ..RECTYPL.RECORD_PTRINSASW_REC_TYPE]]) OR 
5 “SEQNUM) _NEQU 1) OR 
“SEQLAST) NEQU 1) OR 
AGS) NEQU 0) OR 
ASK_PKTHDR LENGTH NEQU NSASK_RECHDR_LENGTH) OR 


SASW_R 
NEGU NSASK_PKTHDR_LENGTH) 


ECORD-PTRINSASW- 
“RECORD” PTRENSASW-R 
RETURN 0; 
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( Nd 
( KTHORSIZ 


ee ed ed ed ee ed ed ce ce ce cee cae ce ee ed ae ae ced ee ae ce cee ce ee cee ce en ce ee ee eh ce el ee ce ce cael ce ce cee ce cl ce ca ce ee eee 
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SAR SS& 
PW 0 OONO UE WD 0 OONOA UN EWIN 0 OONO UE WN SO OONOUE Wh oo 
OOOO UE WR 0 ODNOAUE WN 0 OD NAMES WN SO OONOUS WN OO On 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
MAP 
RECORD_PTR : REF S$BBLOCK; | 


ivieteiet 32323 ex 
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! 
; Initialize the packet count table and get a pointer to the first packet. 


CHSFILL(O, NSASK_PKTTYPNUM, PKT_COUNT TAB) 
T_PTR = .RECORD_PTR + .RECORD ~BTRENSASE, kec _PKTOFFI; 


i] 
1 
' 
: the packet index table. 
INCR I _ 0 TO NSASK_PKTTYPNUM-1 DO 
twei KT _COUNT_TABC.1] NEQU 0 
BEGIN 
at INDEX TABC.1] = . INDEX; 
MEK = .INDEX + .PKT_COUNT_TABL.1); 
END; 


Now we step through the packets one more time to set up the 
packet pointer table. In the process we re-count the packets. 


3 150 

$ 1 

; 1 

: 1 

- 188 

; 861 1 § If the packet count is not zero, we must perform various validation checks 
; ¢ : 5 : and set up the packet index and packet pointer tables. 

> 864 159 if -RECO?D_PTRCINSASB_REC_PKTNUM] GTRU 0 

; 865 160 THEN 

; £06 161 BEGIN 

; 6 126 DECR I FROM .RECORD_PTRCNSASB_REC_PKTNUM] TO 1 DO 

; 868 1635 4 BEGIN 

: i 1 fo) ent tee pocket ote a 

; et the packet size and type. 

; 871 198 4 , 2 

s 87 167 & bet TYPE = .PKT_PTRENSASW_PKT_TYPEI; 

: 1h 198 : PKT “SIZE = .PKT_PTRINSASW_PKT_SIZEJ; 

; 875 170 4 i Validate the packet size and se 

; 876 171 4 i 

3 O77 176 4 if (. eet TYPE EQLU 0) 

; 878 1735 4 LS bb GTRU NSASK PRTTYPNUM) OR 

; 879 2174 & SIZE = NSASK_PKTHDR_LENGTH LSSU .PKT -SIZE_TABL.PKT_TYPE-1, 0]) OR 
3 tt] 2176 ? (. “PRT “SIZE = NSASK-PKTHDR_LENGTH GTRU .PKT_SIZE_TABL.PKT_TYPE=1, 1]) 
; 88 177 4 RETURN 0; 

; 88 178 4 

; 884 179 4 i Increment the packet count, get the next packet address and 

; nH 1 2 make sure that it does not point past the end of the record. 

: 887 $186 4 PKT _COUNT_ teat. PKT_TYPE=1] = .PKT_COUNT_TABL.PKT_TYPE-1] + 1; 

; 888 183 4 PKT-PT - = ot) PTR'+ .PKT SI E; 

; 889 2184 4 If T.1 NEQU 1)~AND 

; 890 2185 5 PKT OTR - .RECORD_PTR - NSASK_PKTHDR_LENGTH GEQU .RECORD_SIZ) 
; 891 2186 4 N- 

3; 892 4 4 RETURN 0; 

: 893 188 D; 

; 894 2189 ‘ 

; 895 2190 ! The packet data types and sizes have been validated. The next step 
3; 896 $1 1 ' is to set up the packet index and pointer tables. First we set up 
3 1 § 

3 194 

3 195 4 

; 196 & 

: 197 4 

; 198 5 

: 199 § 

3 200 5 

: 2 ; 4 

; ; 4 

; 5 

3 206 


22833ssss 
—OOCOnNOu 
COoooocoowoowowowowvcwvnowvovo 


—t more 


row 


p=1984 12:30:35 LOPcOM. SRCSSECURIT 
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; (91 4 CHSFILL(O, NSASK_PKTTYPNUM, PKT_COUNT_ TAB); 

7; 91 3 PKT_PTR = .RECORD PTR + »RECORD PTRE SASwW_REC PKTOFFIJ; 

; 914 0 DECR J FROM .RECORD_PTRINSASB_REC_PKTNUM> TO T DO 

; 312 19 2 BEGIN 

: 319 1g 4 i Get the packet type, save the packet address in the packet 

; 918 13 4 ! pointer table, increment the packet count, and get the next 

3 a 1% : } packet pointer. 

; 321 6 4 PKT_TYPE = .PKT_PTRINSASW_PKT_ TYPE]; 

: 9 : 7 4 PKT-POINTER_TABL.PKT INDER_TABL.PKT TYPE=1]+.PKT_COUNT_TABL.PKT_TYPE-1]] = .PKT_PTR; 
3; 9 18 4 PKT_COUNT_TABL.PKT_TYPE=-1]"= ,PKT_COUNT_TABL.PKT_TYPE-T] + 1; 

i 92h 19 4 PKT-PTR =” .PKT_PTR™¢ .PKT_PTRENSASW_PKT~SIZEJ; 

; 926 ; it Oe 

; 2 2 33 ; Now we check that the right packets are present for this type of record. 
: 383 $558 i First we form a pointer to the table which describes the packet types 
: 33) $558 for this record. 

; 338 22 8 SUBTYPE PTR = .RECTYPL.RECORD_PTRINSASW_REC_TYPE]]; 

; 934 2 3 RECID_PTR = .SUBTYPE_PTR .RECORD_PTRENSASW_REC_SUBTYPEJJ; 

; Bt 0 Then we make sure that each packet found is allowed in this record. 

: 938 238 INCR I FROM 1 TO .RECID_PTRLOJ*3-2 BY $ DO 

; 939 2234 BEGIN 

: 940 $$32 IF (.PKT_COUNT_TAB 35 Sal Oot LSSU .RECID_PTRC.1+1]) OR 

3 $33 $39 4 (.PKT_COUNT_TABL.RECID_PTRC.1J-1] GTRU .RECID_PTRE.1+2)) 

: 343 2038 RETURN 0 

; 945 $520 COUNT = .COUNT + .PKT_COUNT_TABL.RECID_PTRC.IJ-1); 

2 ee eee 

; 948 $50 i The packet count can now be used to make sure that there were not any 
; asp ssee } additional packet types in the record. 

: 951 e246 if .COUNT NEQU .RECORD_PTRINSASB_REC_PKTNUM] 

; 983 248 RETURN 0; 

Oe BE 

: 936 31 The Last check is to validate the record size. 

: 36 258 if gPRT_PTR - .RECORD_PTR - NSASK_PKTHDR_LENGTH NEQU .RECORD_SIZ 

; 960 35 RETURN 0; 

: 962 25 RETURN SS$_NORMAL; 

; 58 1 END; ! End of VALIDATE_RECORD 
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OPCSSECURITY 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-742 Page 28 oP 
at ts 13-88-1382 93:98:28 OPCOM. SRCJSECURITY.832; 1 ° (8 vo 
52 9E 10 0 D C3 CMPZV #0, #16, a(SP)+, R2 : 
: C BGEGU 6 ; 
00¢ C9 5$: BRWw 15$ : 
0000°CF4 6 CC 6$: INCB_ PKT_COUNT_TAB-1(PKT_TYPE] : 2182. 
56 21 C D1 ADDL2 PKT-SIZE,~PKT_PTR t 2183. 
01 0 b D4 CHPL + 2184. 
52 56 38 C Re SUBL3 RB, PKT_PTR, R2 + 2185) 
04 (2 00000 SUBL2 #4, R : 
08 AC : D1 OO0EO CMPL Re. RECORD_SIZ : 
Ig OE4 BGEQU 5 : 
AF F itd 7$: SOBGTR I, 4$ : 2162 
d4 O00E CLRL + 2194 
51 0000" cF49 A OOEB 8$: NOV ZBL PKT_COUNT_TABLIJ, R1 + 2196. 
0000'CF40 6€ BO 000F3 MOVW INDEX, PKT_INDEX_TABLI) : 2199 
51 ¢O 000F9 ADDL2 1, INDEX : 2200 
EB 12 3 OOOFC 9S: AOBLEG #8, 1, 8$ + 2194 
13 00 6E 00 2c 9100 movcS #0, (SP), #0, #19, PKT_COUNT_TAB ; 2207 
0000" CF 010 F | 
56 59 00 00108 MOVL 9, PKT_PTR : 2208 
50 01 AA 9E 00108 MOVAB 1<R10),71 + 2209 
25 11 00108 BRB : 
57 FC ‘ 3 0111 10$: MOVZWL <-4(PKT_PTR), PKT_TYPE : 2216 
51 0000'CF4 C 00115 MOVZWL PKT_INDEX_TAB-2CPKT_TYPEJ, R1 3 2217 
52 0000'CF47 9A 0011B MOVZ2BL PKT-COUNT-TAB-1LPKT-TYPE]. R2 ; 
51 52 CO 00121 ADDL2. R2,~R1 ; 
0000°CF41 56 D0 00124 MOVL PKT_PTR, PKT_POINTER_TAB[R1] : 
0000'CF47 96 0012A INCB = PKT~COUNT_TAB-1CPKT_TYPE) : 2218 
51 FE A6 3C 0012F MOVZWL <-2(PKT_PTR), R1 3; 2219 
56 51 CO 00133 ADDL2 1, PKT_PTR : 
08 50 £5 00136 11$:  SOBGTR I, 10$ > 2209 
50 68 3C 00139 12$:  MOVZWL (RB), RO + 2228 
51 0000'CF40 bd 001 ¢ MOVL  RECTYPCROJ, SUBTYPE_PTR : 
50 02 As C 0014 MOVZWL 2(R8), R : 2229 
50 6140 00 00146 MOVL (SUBTYPE _PTR)CROJ, RECID_PTR F 
51 60 9A OO1cA MOVZBL (RECID_PTR), R1 : 2233 
51 03 C4 00140 MULL2 #3, R1 : 
51 02 C2 90159 SUBL a2. R1 : 
52 02 CE 991 3 MNEGL #2, I : | 
1B 11 0126 BRB 146 ; 
53 6240 9A 0619 13$:  MOVZBL (I)CRECID_PTRI, R3 > 2235 
53 0000'CF43 9A 0015 MOVZBL PKT COUNT TAB-1(R3], R3 : : 
53 01 Aes 91 Sb CMPB 117 RECIB_PTRI, RE b } 
25 1A 001 BGTRU 15 : 
53 02 A240 91 00169 CMPB. -2( 1) CRECID_PTRI, R3 2236, 
16 1F 016 BLSS 138 ; 
58 53 CO 001 ADDL R3, COUNT 3 3340 | 
FFDF 52 Q 51 £1 00173 14$: ACBL Ri. #3, I, 138 ; $033 
A 5B 01 0017 CMPL COUNT, r16 + 2246 
10 1 17¢ BNEQ 15$ ; 
56 58 C2 0017E SUBL2 RB, R6 > 2253 
56 94 C 1 1 SUBL2 #4. R6 ; 
08 AC 6 D1 001 CMPL Rb RECORD_SIZ : 
04 if} 1 BNEG 15$ : 
50 1 p 18A MOVL #1, RO : 2257 | 
4 001 RET ; 
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965 59 ROUTINE FORMAT_FIL(RECORD_PTR) = 

969 4 '+¢ 

208 86 ! FUNCTIONAL DESCRIPTION: 

370 rf: This routine formats security alarm messages for file access alarms. | 
378 ef MPU PECORD_PTR : The security alarm record address. | 
af? 63 ctctvos | palate | 
a ipa pect 

979 7 NONE. 


IAPLICT OUTPUT: 
Formatted message in the alarm buffer. 


SIDE EFFECTS: 
NONE. 


ROUTINE VALUE: 
SSS_NORMAL or a SFAO system service error. 


BEGIN ! Start of FORMAT_FIL 
j 


RECORD_PTR : REF S$BBLOCK; 


FIL_VEC : VECTORENSASK_RECTYPNUM_FIL] 
INITIA AL CUPLIT(S YTEC(ZASCIC * / Successful file access *)), 
UPLIT(BYTE(ZASCIC ° File access failure'))); 
LOCAL 
STATUS : LONG; 


i] 
Format the common message Lines. 


STATUS = PUT_COMMON(.RECORD_PTR, .FIL_VECC.RECORD_PTRINSASW_REC_SUBTYPEJ-1)); 
IF NOT .STATOS THEN RETURN TSTATUS;: 


7 Format the image name, file name, and file access mode Lines. 


PUT_PKT iment” RECORD_PTR); 
PUT“PKT—FILNAM(.RECORD_PTR); 


pur. PKT~ “FACMODC. -RECORD— “PTR); 
If it was a successful file access, format the privileges used Line. 
if -RECORD_PTREINSASW_REC_SUBTYPE] EQLU NSASK_RECTYP_FIL_SUCC 


T_PKT a1 \+ ga RECORD_PTR); 
RETURN SS$_RORMA 
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; Routine Size: 


NO OO 
NO Ww 
No ON 


0000Vv 


0000v 
0000v 
0000Vv 


0000v 


wo 


F 
01 02 


CF 
50 


53 20 2F 20 19 8010 
20 $3 6C 69 66 ORE 
46 28 2F 20 6 Bost 
6C 69 61 66 2 00358 


00000000" 00000000' OOAFO 


0004 00000 
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Routine Base: S$CODE$S + O3CA 
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! End of FORMAT_FIL 


SPLITS,NOWRT ,NOEXE,2 


1 
<25>\ / Successful file access\ 


2 
<22>\ / File access failure\ 


SOWNS ,NOEXE ,2 


: ADDRESS P.AAD, P.AAE 


SCODES,NOWRT,2 


R2 
ORD_PTR, R2 
0 
_véC=4CR0] 


PUT _COMMON 
TUS, 2$ 


, PUT_PKT_IMGNAM 
, PUT_PKT_FILNAM 
PUT_PKT_FACMOD 
,m 
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12286871382 93:85:28 OPCOM. SRCISECURIT 
ROUTINE FORMAT _SYSUAF(RECORD_PTR) = 
1+ 


14 
; FUNCTIONAL DESCRIPTION: 


This routine formats security alarm messages for records whose type 
is NSASK_RECTYP_SYSUAF. (System user authorization file) 


INPUT: 
RECORD_PTR : The security alarm record address. 


IMPLICIT INPUT: 
NONE. 
OUTPUT: 


IMPLICT OUTPUT: 
Formatted message in the alarm buffer. 


SIDE EFFECTS: 
NONE. 


ROUTINE VALUE: 
SS$_NORMAL or a $FAO system service error. 


. 
i] 
: 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
4 
. 
' 
. 
' 
. 
' 
M 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
i] 
. 
' 
. 
' 
. 
' 
. 


BEGIN ! Start of FORMAT_SYSUAF 
MAP 
RECORD_PTR : REF SBBLOCK; 


IND 
FROMNAM_BUF 


= UPLIT(BYTE(ZASCIC ° From Name: "aes 
OLDNAM_BUF = UPLIT(BYTE(ZASCIC ° Old Name: *)): 
OWN 
BANNER_VEC =: VECTORCNSASK_RECTYPNUM_SYSUAF J 
INITIALCUPLIT(BYTECZASTIC ' / System UAF record addition')), 
UPLIT(BYTE(ZASCIC * / System UAF record deletion')), 
UPLIT(BYTE(ZASCIC * / System UAF record modification')), 
UPLIT(BYTE(ZASCIC * / System UAF record copied’ 
UPLIT(BYTE(ZASCIC * / System UAF record renamed’)5), 
LABEL_VEC : VECTORCNSASK_RECTYPNUM SYSUAF J 
INITIAL (UPLIT (BYTE (ZASCTIC Rec Add: ei 
UPLIT(BYTE(ZASCIC * Rec Del: we iF 
UPLIT(BYTE(ZASCIC * Rec Mod of) 
UPLIT(BYTE(ZASCIC * Rec Add ‘) 
UPLIT(BYTE(ZASCIC ° New Name: ))5; 


LOCAL 
STATUS : LONG; 


] 
Format the common message lines. 


STATUS = PUT_COMMON(.RECORD_PTR, .BANNER_VECC.RECORD_PTRCNSASW_REC_SUBTYPEJ-1)); 


SESISPESISSSLSSSERE 


a Bd a ed ed 2d = 2 ot 


wwe ee ee 
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18-828-1382 93:98:29 OPCOM. SRCISECURIT 
IF NOT .STATUS THEN RETURN .STATUS; 

Pove the user name Label and user name fields into the alarm buffer. 


PUT_STRING_ASCIC(.LABEL_VECC.RECORD_PTRINSASW REC_SUBTYPEJ-1)); 
PUT"PKT _STRING(.RECORD_PTR, NSASK_PRTTYP_USERNAM, 1); 
PUT NEWCINE(O); 


If this is a UAF copied or renamed record, format the old user name. 


IF .RECORD_PTRUNSASW_REC_SUBTYPE] EQLU NSASK_RECTYP_SYSUAF_COP 
OR {RECORD PTR NSASW_REC SUBTYPE] EQLU NSASK_RECTYP_SYSUAF_REN 
BEGIN 
PUT_STRING_ASCIC( 
IF .RETORD_PTRCNSASW_REC_SUBTYPE] EQLU NSASK_RECTYP_SYSUAF_COP 
THEN FROMNAM_BUF 
ELSE OLDNAM_BuF 


) 
PUT_PKT_STRING(.RECORD_PTR, NSASK_PKTTYP_USERNAM, 2); 


PUT_NEWLC INE (0) 
END; 


If this is anything but a UAF deletion record, format the modified fields. 
sexes This is temporarily tied off because AUTHORIZE is not generating 
weree the fields modified vector. 


gf SCHRS PTREISARN AEC RUSTE NEQU NSASK_RECTYP_SYSUAF_DEL 
IF .(UPLIT BYTE (0)) THEN ! seee* temporary tie-off 


PUT PKT_ SYSUAFF(.RECORD_PTR); 
RETURN SS$_RORMAL ; 


Ot emt 
x 


! End of FORMAT_SYSUAF 


-PSECT SPLITS,NOWRT,NOEXE,2 


00043 -BLKB. 1 
61 4E 20 6D 6F 72 46 O09 OC 44¢8 P.AAF: rt <12><9>\From Name: \<9> 
6D 61 4 $0 $ 6C 4F 98 OB 00054 P.AAG: .ASCII <11><9>\O0Ld Name: \<9> 
65 74 7 3 20 2F 9 1D 00060 P.AAH: .ASCII <29>\ / System UAF record addition\ 
64 61 20 64 72 63 65 72 BR6F akon 
65 74 73 79 33 20 2F 20 1 0080 P.AAIL: .ASCII <29>\ / System UAF record deletion\ 
65 64 20 64 72 6F 63 65 7 i aay 
65 74 73 79 33 20 2F 20 $1 BOKD P.AAJ: .ASCII \! / System UAF record modification\ 
6F 6D 20 64 6F 63 6 ¢ AF 
6F 69 7 008 
00C -BLKB 2 
65 74 73 79 33 2F 20 1 C4 P.AAK: .ASCII <27>\ / System UAF record copied\ 
6F 63 $0 4 § 6F $3 § 7 it: 
65 74 9 ; 20 2F ? 1 BE P.AAL: .ASCII <28>\ / System UAF record renamed\ 
65 72 20 64 72 63 65 7 BREF ent 


—_— SO 


Ope SSE CURITY 1$-Fe0-1984 01:48:50 YAKotY BL is8-32_v4.0-742_ Page 3 


09 3A 64 64 41 20 63 65 52 09 OA 165 P.AAM: ty <10><9>\Rec Add: \<9> : 
09 3A 6C 65 44 20 63 65 52 09 OA 196 P.AAN: at <10><9>\Rec Del: \<9> : 
09 3A 64 6F 4D 20 63 65 52 09 OA 138 P.AAO: ot <10><9>\Rec Mod: \<9> 3 
09 3A 64 64 41 20 63 65 52 09 OA 4 ; P.AAP: att <10><9>\Rec Add: \<9> : 
09 3A 65 6D 61 4E 20 77 65 4E 09 68 3 ? See oASClI hatin Name: \<9> 


-PSECT SOWNS,NOEXE,2 
00000000" 00000000° 00000000" 00000000" 00000000° OOAF8 BANNER_VEC: 


.ADDRESS P.AAH, P.AAI, P.AAJ, P.AAK, P.AAL : 
00000000" 00000000* 00000000° 00000000° 00000000° OOBOC LABEL_ vec: 
.ADDRESS P.AAM, P.AAN, P.AAO, P.AAP, P.AAQ : 
F ROMNAM_BUF = P.AAF 
OLDNAM_BuF = P.AAG 


-PSECT $CODES,NOWRT,2 
0004 00000 FORMAT_SYSUAF : 
WORD 


‘ Save R2 : 2317 
52 04 AC 00 00002 MOVL §RECORD_PTR, R2 : 2373 

50 02 Ag 3¢ 00006 MOVZWL 2(R2), : 

0000'CF40 DD OO00A PUSHL BANNER_VEC-4CROJ F 

52 DD O000F PUSHL : 

0000v CF Q FB 90011 CALLS #2, PUT_COMMON : 
6F £9 0016 LBC sTATUS. “7$ + 2374 
50 02 A2 3¢ 00019 MOVZWL 2¢ : 2378 

0000'CF40 DD 00010 PUSHL LABEL C-4CRO] : 

0000v CF or FB 900¢ CALLS Bet OTe STRING. ASCIC : 
1 DD 0002 PUSHL a’ : 2379 

OA DD 00029 PUSHL #10 : 

32 DD 00028 PUSHL : 

0000v CF : FB 990 D CALLS #3, PUT_PKT_STRING F 
E D4 00032 CLRL = : 2380 

0000v CF gi FB 00034 CALLS #1, PUT_NEWLINE : 
g D4 00039 CLRL : 2384 

04 02 A2 Bi 00038 CMPW 3s 2(R2), #4 : 

94 if 00 F BNEQ 1$ : 

0D 41 INCL RO ; 

06 11 043 BRB $ : 
05 02 A 8] 45 1$: CMPW (R2), #5 : 2385 

: é 49 BNEQ 3 F 
7 f 4B 2$: BLBC : 2389 

0 0000° cr : 004 MOVAB FROMMAM_BUF , RO ; 

5 11 0005 BRB g : 

50 0000' CF 9€ 00055 3s: MOVAB OLDNAM_BUF, RO : 

50 0D 3A 4$: PUSHL : 

0000v CF 1 FB ¢ CALLS #1, PUT_STRING_ASCIC : 
2 dD 00061 PUSHL #2 > 2393 

A DD 0 63 PUSHL #10 : 

2 DD 0006 PUSHL R2 : 


SB Vee Se Se Se Se Ge Se Se Ge Fe Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Sees Fe Se Se Ge Sete se Seseas 


M15 
OPCSSECURITY 16-Sep- 984 01: AX-11 Bliss-32 V4.0-7 Page 35 
9052050 1a-Sep- 984 12:5 $5; 29 OPCOM. SRCJSECURITY. 5536 1 (7) 
0000v CF 03 FB 00067 CALLS #3, PUT_PKT_STRING : 
7E D4 0006C CLAL P) + 2394 
0000v CF 01 FB 006 CALLS Put hEWLINE ; 
02 02 Ae 81 oof S$: CHP Btk2) ; 2401 
07 0000" CF 13 79 BLBC AAR, 6$ ; 3403 
: DD 0007 PUSHL R3 + 26404 
0000V gF fe CALLS #1, nin niece : 
0 1 p 0 6$: MOVL #1, R + 2405 
4 00088 7$: RET + 2406 


; Routine Size: 137 bytes, Routine Base: $CODES + 0409 


N 15 
voe-000 1er$ep-1986 12:30:35 LOecon. Sac SsecuRYt 


oF : ROUTINE FORMAT_NETUAF(RECORD_PTR) = 
i3 4 lee 
18 ? ! FUNCTIONAL DESCRIPTION: 

0 4 This routine formats security alarm aesseges for records whose type 
1 ? is NSASK_RECTYP_NETUAF. (Network user authorization file) 

§ INPUT: 

¢ RECORD_PTR : The security alarm record address. 

§ IMPLICIT INPUT: 

9 OUTPUT: 

: NONE. 


IMPLICT OUTPUT: 
Formatted message in the alarm buffer. 


SIDE EFFECTS: 
NONE . 


Ww 


ROUTINE VALUE: 
SS$_NORMAL or a S$FAO system service error. 


BEGIN ! Start of FORMAT_NETUAF 


Pp 
RECORD_PTR : REF SBBLOCK; 


IND 
OLDREC_BUF = UPLIT(BYTE(ZASCIC ° Old Rec: ")); 
BANNER_VEC : VECTORCNSASK_RESTYPNUM_NETUAF) 
INITIAL(UPLIT(BYTE(ZASCIC * / Network UAF record addition')), 
UPLIT(BYTE(ZASCIC * / Network UAF record deletion')), 
UPLIT(BYTE(ZASCIC * / Network UAF record modification'))), 
LABEL_VEC : VECTORENSASK_RECTYPNUM_NETUAF J 
INITIALCUPLIT(BYTE(ZASCIC ' Rec Add: ai FP 
UPLIT(BYTE(ZASCIC * Rec Del: 733 
UPLIT(BYTE(ZASCIC * New Rec: "))5; 
LOCAL 
STATUS : LONG; 


' 
: Format the common message Lines. 


STATUS = PUT _COMMON(.RECORD_PTR, .BANNER_VECL.RECORD_PTRINSASW_REC_SUBTYPEJ-1)); 
IF NOT .STATOS THEN RETURN =STATUS; 


' 
: Format the first network user authorization Line. 


PUT_STRING_ASCIC(.LABEL_VECC.RECORD_PTRINSASW_REC_SUBTYPE)-1)); 
PUT"NETUAF~LINE(.RECORD-PTR, 1); 


AOA WUIMN INUIT BB BEE BEEP 


ee ed et a ee ed cee ec ce ee ce a ee ee a a ee ee ce a ee ca ee ce ee ee ec eee ee ee ce ee ed ee ee ee ed ec ee ed ed ee ed ed 
NOAA O 


ec ec ee Dc ce ce me ee ce ee ee ee ee ee ee ee ce ce ce ee ee ce ee el ce el el el el el ce ce cel cl cl el cel 


POPPOPINIMNINONININININONINPINYININININPINIPODNINPINININIAE PINYNININININININIPIPIPIPUNININIPIPINIPIPOPIPIPUNPIPUPINUPYD 


Fe ae ae oe oe ee ee ot et ee oe ee ee ee ee ee eee 
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WR 0 DOONAN WN 0 DOONAN WIN | O OD NOAOU EWN 9 OONOAUSWN (“OO CONAOULSWN OOO 
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16 
ope Sse cuRITY 1$-ep-1964 01:48:59 yayett BLigg=82,v4.0-742, Page 37 


s 44 4 ! 

3 1138 465 g ! If this is a network UAF modified record, format the second network user 
; 1108 rh : authorization Line. 

; 1176 46 IF, ,RECORD_PTRLNSASW_REC_ SUBTYPE] EQLU NSASK_RECTYP_NETUAF_MOD 

: 1178 4 BEGiN Z 

3 117 47 PUT_STRING_ASCIC(OLDREC_™*); 

: 1399 rf! CUT Pe TUAY LIMES RECORD PTR, 2); 

: 1182 474 2 RETURN SS$_NORMAL; 

; (11 475 END; ! End of FORMAT_NETUAF 


-PSECT SPLITS$,NOWRT,NOEXE,2 


0013D -BLKB 3 
09 3A 63 65 52 20 64 6C 4F O09 OA dre P.AAS: <-t % <10><9>\0ld Rec: \<9> 3 
46 41 55 20 68 72 6F 77 74 65 4E 20 2F $8 1E€ OO14C P.AAT: .ASCII <30>\ / Network UAF record addition\ : 
6F 69 74 69 64 64 61 20 64 72 6F 63 65 72 20 00158 3 
6E QOO16A r 

00168 -BLKE 1 
46 41 55 20 68 3 6F 77 74 65 4E 20 2F 4! 1€ QOO16C P.AAU: .ASCTI <30>\ / Network UAF record deletion\ $ 
6F 9 76 65 6C 65 64 20 66 72 6F 63 65 2 20 00178 ; 
6E O0O18A 3 

00188 -BLKB 1 
6 41 $5 20 68 72 6F 77 74 65 4E 2 2F 20 $¢ 0018C P.AAV: .ASCII \"' / Network UAF record modification\ : 
635 69 66 69 64 6F 6D 20 64 72 6F 63 65 72 20 00198 ; 
6—E 6F 69 74 61 OOTAA 3 

OO1AF ~BLKB 1 
09 3A 64 64 41 20 63 65 52 O9 OA ato! P. AAW: tt <10><9>\Rec Add:\<9> 3 
09 3A 6C 65 44 20 63 65 52 O09 OA ats P.AAX: nt <10><9>\Rec Del: \<9> 3 
09 3A 63 65 52 20 77 65 4E OF OA OO1CB8 P.AAY: .ASCII <10><9>\New Rec:\<9> 3 


-PSECT SOWNS,NOEXE,2 
00000000" 00000000' 00000000' 00820 BANNER_VEC: 

sADDRESS P.AAT, P.AAU, P.AAV ; 
00000000" 00000000' 00000000' O0B2C LABEL_VEC: 

-ADDRESS P.AAW, P.AAX, P.AAY 


OLDREC_BUF= P.AAS 


-PSECT S$CODE$,NOWRT,2 
0004 00000 FORMAT_NETUAF : 
. WORD 


Save R2 : $70? 
52 04 A p0 9002 MOVL RECORD_PTR, R2 ; 2457 
50 2 Ae 3C 00 MOV2WL 2(R2),~RO ; 
0900'°CF40 DD OO00A PUSHL BANNER_VEC-4CRO] ; 
DD OO00F PUSHL Re ; 
0000v CF FB 00011 CALLS #2, PUT_COMMON : 


16 

OPCSSECURITY 1h-sep-1984 01:48:5 AX-11 Bliss-32 V4.0-742 Page 38 
90a 5000 ee tioe ts rik) es es me CPP ORT PS EP he 9 a) 
50 £9 0001 BLBC «STATUS, 28 : 2658 
Hi 02 Ae Ee 88018 BOvyuL S<RE)'R : 5462 

0000'CF40 DD 0001 PUSHL LABEL VEC~4CRO3 

000v CF 1 FB 000 CALLS #1, POT. STRING_ASCIC ; 
1 DD 000 sist; a : 2463 

DD 00059 PUSHL i : 

o000v cf 0g FB 000e8 CALLS #9, PUT_NETUAF_LINE 
3 02 48 81 000 MPU OD(R2). 83 : 2468 

13 12 000 NEO ; 
0000" ¢F 9 90056 PUSHAB OLDREC.B : 2471 

0000v CF 1 FB 0003A CALLS #1. PUT’ STRING_ASCIC 
Dd 9005 push 2 2472 

DD 0004 PUSHER 

o000v. ¢F 0% 8 9004 CALLS #2, PUT_NETUAF_LINE ; 
0 ¥ 0 0008 18: MOVE” TS t 247% 
04 00048 28: —s*RET : 5275 


; Routine Size: 76 bytes, Routine Base: S$CODE$S + 0492 


D 16 
OPCSSECURITY 16-Sep-1984 01:48:5 AX=-11 Bliss-32 V4.0-742 Page 39 
vOe+000 10-30-1984 9:35:88 OPCOM. SRCJSECURITY.B832;1 s 3) 


5 1} 5 rh ! ROUTINE FORMAT_LOGB(RECORD_PTR) = 

3 33 478 1 !+44 

; 1188 479 1 ! FUNCTIONAL DESCRIPTION: 

; 1189 480 1! 

3 1190 481 1! This routine formats security alarm messages for records whose type 

; 1393 : ‘ } is NSASK_RECTYP_LOGB. (Login breakin detection) 

3 1198 484 1 ! INPUT: 

3 BY re #1 : RECORD_PTR : The security alarm record address. 

3 1129 is? 1! IMPLICIT INPUT: 

; 119 4686 1! NONE. 

: 1198 489 1! 

; 1199 490 1 ! OUTPUT: 

: 1200 491 1! NONE . 

: 1201 492 1! 

| 4 493 1°! IMPLICT OUTPUT: 

: 120 494 1! Formatted message in the alarm buffer. 

: 1206 495 1! 

: 1205 496 1 ! SIDE EFFECTS: 

3 1 06 497 1! NONE. 

; 120 498 1! 

; 1208 2499 1 ! ROUTINE VALUE: 3 

: 1209 2500 1! SS$_NORMAL or a SFAO system service error. 

: 1519 501 1 !-<- 

3: 1211 e46 1 

3 7 \¢ 50 BEGIN ! Start of FORMAT_LOGB 

; 121 $208 

3: 1214 505 MAP 

3 1215 2506 RECORD_PTR : REF S$BBLOCK; 

; 1216 2507 

3 1217 2508 

; 1218 2509 BANNER_VEC =: VECTORCNSASK_RECTYPNUM _LOGB) 

3; 1219 2510 INITIALCUPLIT(BYTE(ZASCIC ' / Dialup interactive breakin detection')), 
3 1220 2511 2 UPLIT(BYTE(ZASCIC ' / Local interactive breakin detection')) 
: 1221 s21§ § UPLIT(BYTECZASCIC * / Remote interactive breakin detection')5, 
; \$$¢ 251 UPLIT(BYTE(ZASCIC ' / Network breakin detection')), | 
3 \$¢7 Sete § UPLIT(BYTE(ZASCIC * / Detached process breakin detection'))); 
5 1395 $21$ § LOCAL 

3; 1226 517 STATUS : LONG; 

3: 1227 2518 

; 7 : 519 } 

3 } 321 : Format the common message Lines. 

3 1231 5 § STATUS = PUT COMMON(.RECORD_PTR, .BANNER_VECC.RECORD_PTRCNSASW_REC_SUBTYPEJ-1)); 
3 1536 5 IF NOT .STATUS THEN RETURN -STATUS; 

31 524 2 STATUS = PUT _PKT_ PASSWORD(.RECORD PTR); 

: 1 : 2 5 IF NOT »STATOS TREN RETURN .STATUS; 

: : 3 ; $ Dispatch by record subtype to format the remainder of the message Lines. 

° Bs ; : CASE .RECORD_PTRINSASW_REC_SUBTYPE] FROM 1 TO NSASK_RECTYPNUM_LOGB OF 

3 1240 23) NSASK_RECTYP_LOGB_DIA, NSASK_RECTYP_LOGB_LOC) : 

3 1241 532 : 


EE 


16 
vou-800 eSeoc}9Ge OU:48:52 YALL BLUSECED nt; O5t42, Page 5) 


Dialup and local interactive breakin detection. 


BEGIN 
PUT _DEVNAM_LINE (RECORD, PTR) 
CNSASK. RECTYP_LOGB_REM] : 
; Remote interactive breakin detection. 


BEGIN 

PUT_DEVNAM_LINE(.RECORD PTR); 

STATUS = POT SOURCE_LINE(.RECORD PTR); 
IF NOT .STATOS THEN RETURN .STATOS; 


oy 
CNSASK_RECTYP_LOGB_NET) : 
Network breakin detection. 
BEGIN 
STATUS = PUT SOURCE_LINE(.RECORD PTR); 
yt «STATOS THEN RETURN .STATOS; 
CNSASK_RECTYP_LOGB_DETJ : 
Detached process breakin detection. 


WN "OC OONAUL AN" OVOOnou 


BEGIN 
PUT _PKT PARENTUN( .RECORD_PTR) ; 


ee ce ee ee ed ee ee eed 
Rorefnonononenofry 

winioicd bie ein elo ee eee eee Ses 

w wr 

SAP AALAND ANIA EE ES EEE EAN 

WN =O CONAN WN 0 ODNA YL FAN “OOONOUEW 


Wwr—O0@~ 


TES; 
; RETURN $S$_NORMAL; 
END; ! End of FORMAT_LOGB 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00103 -BLKB 1 
65 74 6€ 69 20 70 75 6C 61 69 44 20 2F 20 4 00104 P.AAZ: .ASCII \' / Dialup interactive breakin detection\ ; 
6— 69 6B 61 65 72 62 20 65 76 69 74 63 61 72 QO1E3 : 
6—E 6F 69 74 63 65 74 65 $e 20 O01F2 : : $ 
72 65 74 6€ 69 2 C 61 63 6F 4C 20 sf 0 26 OO1FC P.ABA: .ASCII \® / Local interactive breakin detection\ ; 
20 6€ 69 6B 61 65 72 62 20 65 76 69 74 63 61 00208 3 
6—E 6F 69 74 63 65 74 65 64 : A nae iS : 
20 746 6F 6D 65 52 20 2F 20 $2 0 24 P.ABB: .ASCII \* / Remote interactive breakin detection\ ; 
6 62 20 65 76 69 74 63 61 3 0 3 ; 
6F 69 74 63 65 74 $3 64 2 024 ; ; 5 
68 6—F 77 74 65 4E 20 2F 20 1C Q0024C P.ABC: .ASCII <28>\ / Network breakin detection\ 3 
74 65 74 65 64 20 6€ 69 6B 61 28 om - 4 : 
65 63 61 74 65 44 $ oF 20 25 0026C P.ABD: .ASCII \% / Detached process breakin detection\ : 
68 65 72 62 20 73 65 § 6F 00278 3 
6— 6F 69 74 63 65 74 65 OO02BA : 


-PSECT SOWNS,NOEXE,2 


F 16 
OPCSSECURITY 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-742 a 
9042000 aR ets ARPS tM PPR PSE Par bet oe — Gi 
00000000" 00000000" 00000000" 00000000' 00000000" 00838 BANNER_VEC: 
"ADDRESS P.AAZ, P.ABA, P.ABB, P.ABC, P.ABD ; 


-PSECT S$CODE$,NOWRT,2 
000C 00000 FORMAT_LOGB: 

WORD R2,R3 
RD_PTR, R2 


Save $ 
04 AC D0 00002 MOVL REC : 2522 
36 08 A Re 006 MOVZWL tea) R : 
0000'CF40 DD 000A PUSHL BANNER_VEC-4CRO] ; 
$2 DD F PUSHL R : 
0000v CF FB 00011 CALLS #2, PUT_COMMON : 
%3 Dd ooi8 MOVL RO, STATUS r 
9 £9 0001 BLBC STATUS, 5$ : 3323 
2 DD O001C PUSHL R2 : 2526 
0000v CF gi FB 00016 CALLS #1, PUT_PKT_PASSWORD : 
53 ° DO 0002 MOVL RO, STATYS 3 
2c 53 £9 00026 BLBC STATUS, 5$ 3 2525 
04 01 02 A2 AF 00029 CASEW (Re). wi, #4 > 2529 
QO1A 0013 000A QOOA 000¢E 1$: .WORD 2$-1$,- ; 
0028 000 ¢$-18.~ : 
$-1$,- : 
4$-1$,- 5 
6$-1$ : 
52 DD 00038 2$: PUSHL R2 : 2536 
0000v CF 01 FB O003A CALLS #1, PUT_DEVNAM_LINE : 
1F 11 O003F BRB 7$ : 2529 
52 DD 00041 3$: PUSHL  R2 + 2443 
0000v CF 01 FB 00043 CALLS #1, PUT_DEVNAM_LINE : 
52 DD 00048 4$: PUSHL R2 : 2552 
0000v CF 01 FB OO04A CALLS #1, PUT_SOURCE_LINE : 
53 50 DO 0004F MOVL RO, STATUS : 
08 53 «EB 90052 BLBS STATUS, 7$ > 2553 
50 53 pO 00055 5$: MOVL STATUS, RO : 
04 00058 RET : 
52 DD 00059 68: PUSHL  R2 : 2560 
0000v CF 01 FB 0005B CALLS #1, PUT_PKT_PARENTUN : 
50 01 DO 00060 7$: MOVL #1, RO 7 2563 
04 00063 RET > 2564 


|; Routine Size: 100 bytes, Routine Base: S$CODE$S + O4DE 
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16 
Eateishs QUSHSHD Wedd, cSt . 


-Sep-1984 OPCOM.SRCJSE 


OPCSSECURITY 1 
vOe=000 1 


IF NOT .STATOS THEN RETURN “STATUS; 
Dispatch by record subtype to format the remainder of the message Lines. 
CASE -RECORD_PTRCINSASW_REC_SUBTYPE] FROM 1 TO NSASK_RECTYPNUM_LOGI OF 


NSASK_RECTYP_LOGI_BAT) : 


Mr 
DNOU EWN 


H : te 65 ! ROUTINE FORMAT_LOGI(RECORD_PTR) = 

: 127 ¢9 1 !4¢ 

3; 127 68 1 ! FUNCTIONAL DESCRIPTION: 

: 127 $ 1: 

; 1280 9 i} This routine fc mats security alarm messages for records whose type 
3 } 4 q} : } is NSASK_RECTYP_LOGI. (Successful logins) 

3 1 HY ig 1! INPUT: 

; : rf ef : } RECORD_PTR : The security alarm record address. 

:1 76 1 1 IMPLICIT INPUT: 

3 1 a9 358 1! NONE. 

3; 1288 578 1! 

: 1289 579 1 ! OUTPUT: 

; 1290 260 1! ° 

: 1291 581 1! 

3 3 38 286 1 ! IMPLICT OUTPUT: 

: 129 583 1! Formatted message in the alarm buffer. 

; 1538 584 1! 

; 1295 585 1 ! SIDE EFFECTS: 

3 1598 5 1! NONE. 

; 129 587 1! 

: 1298 588 1 ! ROUTINE VALUE: 

; 1299 589 1! SS$_NORMAL or a SFAO system service error. 

; 1500 590 1 !<- 

3 130) 591 1 

3 7 4 236 BEGIN ! Start of FORMAT_LOGI 

; 130 59 

3 1304 594 MAP 

3 1302 232 RECORD_PTR : REF SBBLOCK; 

3: 1307 2597 

; 1308 2598 BANNER_VEC =: VECTORCNSASK_RECTYPNUM_LOGIJ 

3; 1309 2599 INITIAL(UPLIT(BYTE(ZASCIC ' / Batch process login')), 

; 1310 2600 UPLIT(BYTE(ZASCIC * / Dialup interactive login’)), 
: 1311 2601 2 UPLIT(BYTE(ZASCIC * / Local interactive login')) 
1 1 40 UPLIT(BYTE(ZASCIC ' / Remote interactive login')), 
3 131 60 UPLIT(BYTE(ZASCIC * / Network Login')) 

3 1314 604 UPLIT(BYTE(ZASCIC ° / Subprocess login')),. 

3; 1315 605 UPLIT(BYTE(ZASCIC * / Detached process login'))); 
; 1318 606 

3 1317 607 LOCAL 

s 1 13 608 STATUS : LONG; 

3 131 609 

: 1320 ' 

; 132 Format the common message Lines. 

3 133 ‘ STATUS = PUT_COMMON(.RECORD_PTR, .BANNER_VECC.RECORD_PTRLNSASW_REC_SUBTYPE]-1]); 
; 13 

3 : s 

s i3 

2 1 

3 1 

e 9 


POAAAAASAAAAAS 
Rony a oe oe ee 
—OOOnoOoulwn—o 


=S3 


H 16 
OPCSSECURITY 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-742 Page 43 
vee tty 12: ~bep -1 138 93:98:28 OPCOM. SRCISECURITY 83271 9° 10) 
; } ¢ ¢ Batch process login. 
31 604 BEGIN 
: i 3 3 ; io; 
; } ° $ CNSASK.RECTYP_LOGI_DIA, NSASK_RECTYP_LOGI_LOC) : 
; i 5 6 : Dialup and local interactive Login. 
> 1341 631 BEGIN 
: 1 é é é Pur _DEVNAM_LINE(.RECORD_PTR); 
g 4 ik. 
; | : 634 LNSASK "RECTYP _LOGI_REM] : 
31 $ 6 $ Remote interactive Login. 
: i 8 4 
> 1349 6 § DEVNAM LINE gRECORD PTR 
: 1350 640 STATUS = POT SOURCE_LINE(. RECORD PTR); 
3 ! 2) ee ll * STATOS. vREA RETURN .STATOS; 
; 1 38 ea8 CNSASK_RECTYP_LOGI_NETJ : 
: 1355 645 i Network Login. 
: 1 3$ $e9 ae 
: 1358 648 STATUS = PUT _SOURCE_LINE(.RECORD PTR); 
3 : 59 34 7. NOT .STATOS THENRETURN .STATOS; 
: 1 631 [NSASK PRECTYP. LOGI_SUB) : 
: ; g 638 i Subprocess login. 
; 1365 655 BEGIN 
31 696 STATUS = PUT_PKT_PARENTPID(.RECORD_PTR); 
: 1367 697 IF not .STATOS TREN RETURN .STATUS: 
: 1379 659 CNSASK_RECTYP_LOGI_DET] : 
: 1371 661 Detached process login. 
F 1378 $04 BEGIN 
+ 1374 664 PUT_PKT_PARENTUN(..RECORD_PTR); 
: 1 1 665 END? 
: 1 5 $6? RETURN Siss _NORMAL ; 
: 1378 668 1€E ! End of FORMAT_LOGI 
-PSECT $PLITS,NOWRT.NOEXE,2 
0292 -BLKB 2 

65 63 6F 72 70 20 68 $3 74 61 42 20 ef 30 16 0294 P.ABE: .ASCII <22>\ / Batch process Login\ j 

69 67 6F 6C 20 7 0 AS oe ; 
65 76 6€ 69 20 70 75 6C 61 69 44 20 2F 20 1B OO2AC P.ABF: <ASCII <27>\ / Dialup interactive login\ : 


72 «65 


65 74 
67 6F 


20 73 
72 70 


OPCSSECURITY 
vOe=000 


63 
65 
6E 


i 
65 
i 
6F 


69 


ah 
6C 


75 


5 
0 


00000000" 00000000" 00000000° 00000000° 


1 

1 

69 74 63 61 72 B 
AOR GE 
Pee g aE 
4E 20 2F 20 1 0 
6— 69 00 +4 
BO PE Hes 
Bo 8 2 0 BS 


00000000" 00000000' 00B4c 
00000000" 00864 


: 16 


~Sep-1984 0 
~8ep-1984 1 


P.ABG: .ASCII 
P.ABH: a ttati 
P.ABI: .ASCII 
P.ABU: ASCH 
P.ABK: .ASCII 
-PSECT 
BANNER_VEC: 


-ADDRESS P.ABE, P.ABF, P.ABG, P.ABH, P.ABI, - 
P P.ABK 


»PSECT 


000C 00000 FORMAT_LOGI: 
W RD 


52 04 AC 00 00002 
50 02 ae 3C 00006 
0000°CF40 DD QO00A 
52 DD OO00F 
CF 02 FB 00011 
53 30 00 00016 
38 53 E9 00019 
01 02.  A2 AF 000IC 
10 0041 50059 
29 0020 00029 
31 11 0002F 
° a 43 0008 
oF 88 

2 DD 0003A . 
CF 2 FB 0005C 
at: 
of 11 00048 
2 0D Ober 
ent 
E 4 
4 057 
4 3 A 
52 DD B 


1$: 


2:35:38 


AX-11 Ol igenze V4.0-742 
OPCOM.SRCJSECURITY.832;1 


<26>\ / Local interactive login\ 


1 
<27>\ / Remote interactive login\ 
<16>\ / Network login\ 


3 
<19>\ / Subprocess lLogin\ 
<25>\ / Detached process login\ 


SOWNS ,NOEXE ,2 


SCODES,NOWRT ,2 


e R2,R3 
RD_PTR, R2 


ER_VEC-4CROJ 


UT COMMON 
ATUS 


>a~me 

Z2zwmoc 

Zrmo 
— 


(DP 


LAR RARE... 
PPARAAA~—“CwV 


, PUT_DEVNAM_LINE 


, PUT_DEVNAM_LINE 
, PUT_SOURCE_LINE 


ABD BD OB D OOVF AIM OV DBVWBOvowWw 


PUT_PKT_PARENTPID 


TUS, 9$ 
TUS, RO 


ee eT TT TT tte 


OYDawD 
> Pe + 
nm” 


@ 
™m 


Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Be Be Se Se Se Se Se Se Be Be 
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(10) 


2632 
2618 


2639 
2648 
2656 
2657 


2664 


—_—_—_——— 


vos-800 WESGor198¢ 93:48:52 MEHL BLinscHz v4 05042, ae 
oo00v GF § gage 4 cats M1, PUT_PKT_PARENTUN We 
4 RET 668 


; Routine Size: 102 bytes, Routine Base: S$CODE$ + 0542 
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; ; : $68 } ROUTINE FORMAT_LOGF(RECORD_PTR) = 

.7 ¢ 671 1 !4+ 

; } 44 of : FUNCTIONAL DESCRIPTION: 

3; 1385 674 1! This routine formats security alarm messages for records whose type 

3 1 o 675 1! is NSASK_RECTYP_LOGF. (Login failures) 

3; 138 ore 1! 

3; 1388 677 1°! INPUT: 

3; 1389 O78 7: RECORD_PTR : The security alarm record address. 

: 1390 679 1! 

3; 1391 680 1 ! IMPLICIT INPUT: 

3 3 36 681 1! NONE. 

3; 139 6 ¢ 1! 

3: 1394 685 1 ! OUTPUT 

: 1395 684 1! . 

: 1396 685 1! 

; 1397 O88 1 ! IMPLICT OUTPUT: 

3; 1398 6 1} Formatted message in the alarm buffer. 

3; 1399 688 1! 

: 1400 689 1 ! SIDE EFFECTS: 

: 1401 690 1! NONE. 

; eS 691 1! 

3 140 692 1 ! ROUTINE VALUE: 

3 1404 6953 1! SS$_NORMAL or a $FAO system service error. 

3 1405 694 1 !-- 

3: 1406 695 1 

3; 1407 696 BEGIN ! Start of FORMAT_LOGF 

; 1408 697 

3: 1409 698 MAP 

3; 1410 2699 RECORD_PTR : REF SSBLOCK; 

3 1411 2700 

; so16 2701 OWN 

3 161 70 BANNER_VEC : VECTORCNSASK_RECTYPNUM_LOGF J 

3 1414 70 INITIAL(UPLIT(BYTE(ZASCIC * / Batch process login failure')), 
3 1415 2704 2 UPLIT(BYTE(ZASCIC * / Dialup interactive login failure')), 
; 1416 2705 UPLIT(BYTE(ZASCIC * / Local interactive login failure’)) 
3 1417 2706 UPLIT(BYTE(ZASCIC ° / Remote interactive Login failure')), 
; 1418 707 UPLIT(BYTE(ZASCIC * / Network login failure’)), 

3 1419 708 UPLIT(BYTE(ZASCIC * / Subprocess login failure’)), 

3 1° , A UPLIT(BYTE(ZASCIC * / Detached process login failure'))); 
3 14 § 711 LOCAL 

3 14 at STATUS : LONG; 

3 1426 71 

3; 1425 714 : 

3 1? $ oi? : Format the common message lines. 

3 1256 19 STATUS = PUT _COMMON(.RECORD_PTR, .BANNER_VECC.RECORD_PTRENSASW_REC_SUBTYPEIJ-1]); 
: 1489 718 2 IF NOT .STATOS THEN RETURN .STATUS: 

3 14 719 2 STATUS = PUT PKT STATUS(.RECORD_PTR); 

5 Hy 2 g IF NOT .STATOS TREN RETURN .STATUS; 

; 1438 f § : Dispatch by record subtype to format the remainder of the message Lines. 

; tH f 3 CASE RECORD _PTACNSASY REC SUBTYPES FROM 1 TO NSASK_RECTYPNUM_LOGF OF 


SNS 


SEPP PLP PPL PPP PPP PEE 
wwe eee eww oP a oe? a ot et oe oe 
DWDONAOVLS UI "OO OONOULS WN O 


Toke es 


Mw 
AUESWN =O ODONAUS WN (OO OONAULS WN OOO NAOUES AN OOONIO 


SIDS DS DE DS OS DDS DSS TTT B® BS BS BBE EE EAI IIIIInpornorn) 


SNS SSS 


oo i i 


- Se Se Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Se Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Fe Se Fe Ge Se Ge Se Se Se Se tees 


ee tk ee ee ee ee ee ek ed ad ad od od od dd 
POPIPININPINDPYIPININDPNYNIDIDININYNINYINIPYAININININYNIPUNIPYNIPUPPUNOPUNINUNIPOPoNoPononopnofronoeny) 


=PUINIMIWINAINIPINININIWN ADI NINININIWWIWNIPININUPINI MAW AIPIPUNPIPINPI NIIP PIN PUNUWwnononoefngd 


Fwn—-o0oan 


NNN 
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BRERA EH ERE RN 


[NSASK_RECTYP_LOGF_BAT) : 
; Batch process login failure. 


BEGIN 
Fan ORAS 

CNSASK_RECTYP_LOGF_DIA, NSASK_RECTYP_LOGF_LOC] : 
Dialup and local interactive login failure. 


BEGIN 

PUT_DEVNAM_LINE(.RECORD_PTR); 
CNSASK_RECTYP_LOGF_REM) : 

: Remote interactive login failure. 

BEGIN 

PUT_DEVNAM_LINE(.RECORD_PTR); 

STATUS = POT SOURCE_LINE(.RECORD PTR); 

Ir Not .STATOS THEN-RETURN .STATOS; 
CNSASK_RECTYP_LOGF_NET] : 

Network login failure. 

BEGIN 

STATUS = PUT_SOURCE_LI 

I Not ~STATOS THENRE 
CNSASK_RECTYP_LOGF_SUB) : 

Subprocess login failure. 


NE(.RECORD PTR); 
TURN .STATOS; 


BEGIN 
STATUS = PUT_PKT_PARENTPID(.RECORD_PTR); 
IF NOT .STATOS TREN RETURN .STATUS: 


END; 
CNSASK_RECTYP_LOGF _DETJ : 
Detached process login failure. 


BEGIN 
PUT _PKT_PARENTUN( .RECORD_PTR); 


TES; 
TURN §S$_NORMAL; 


End of FORMAT_LOGF 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


0 


42 -BLKB 2 : : 
re P.ABL: .ASCII <30>\ / Batch process login failure\ 


ES 


M 16 
OPCSSECURITY 16-Sep-1984 01:48:5 AX-11 Bliss-32 V4.0-742 P 
va ts 1eree= she F3:88:8o «= FONTAA Skisscde ve Oe ree age 4? 
- i BLKB 1 . 
65 74 6€ 69 20 70 75 61 69 44 20 26 P.ABM: <ASCII \#/ Dialup int : in fai 
Mm SE OS 29 oY gf 61 ’ é3 ‘ é3 é} $3 Dialup interactive login failure\ 
72 65 7% 6€ 69 6C 61 6F GC Hy ; 23 P.ABN: ASCII \"'/ Li i in fai ; 
ie oe te ee 8 20 oe ol $3 of if é3 4 9 Local interactive login failure\ 
65 72 75 6c 69 he capes : 
65 74 6€ 69 20 65 76 6F 6D 65 52 20 2F 20 AC P.ABO: ASCII \# / Remote interacti in fai ; 
PRESS eS & gf ¢ i é 7 é i Q o5 emote interactive login failure\ 
67 6F 6C 20 68 72 6F 77 74 65 GE 20 Hi 0 0300 P.ABP: ASCII <24>\ / Network login failure\ : 
65 72 75 6C 69 61 66 20 GE 69 9050F sein’ > ee Se oe : 
20 73 73 65 63 6F 72 62 75 53 20 2F 20 18 OO3EC P.ABQ: <ASCII <27>\ / Sub login failure\ : 
8 GH BO HH MS BUR ans lascis vs 1 oetacned process login faured | 
Ske & Se fe & 8 R 73 é é er a9617 . es ! etached process login failure 


~PSECT SOWNS,NOEXE,2 


00000000" 00000000° 00000000° 00000000° 00000000' 00000000° 00868 BANNER_VEC: 
-ADDRESS P.ABL, P.ABM, P.ABN, P.ABO, P.ABP, - : 
00000000° 00880 P.ABQ, P.ABR 


-PSECT S$CODES,NOWRT,2 
000C 00000 FORMAT_LOGF : 
- WORD 


0 Save R2,R3 > 2669 
52 04 aC DO 00002 MOVL RECORD_PTR, R2 : 2717 
50 02 Ae 3¢ 90006 MOVZWL 2(R2),~R : 
0000'CF40 DD QO00A PUSHL BANNER_VEC-4(RO] : 
52 DD 0000F PUSHL R : 
0000V CF 9¢ FB 00011 CALLS #2, PUT_COMMON s 
53 50 DO 00016 OVL RO, STATUS : 
48 53 £9 00019 LBC = STATUS, 7$ : 271 
52 DD 0001C PUSHL  R2 : 271 
0000v CF 01 FB OO1g CALLS #1, PUT_PKT_STATUS ; 
53 50 00 00 MOVL RO, STATUS : 
3B 53 «EO 99 $ BLBC TATUS, 7$ : 3730 
06 01 02 A2 AF 000 CASEW 2(R2), #1, : 2726 
0019 0010 0010 004 O002E 1$: <WORD 9$-1$.- : | 
003A 0029 0020 000 g5n18:> ; 
3$-1$.- : 
4$-1$.- ; 
5$-1$.- : 
8$-1$ ; 
31 11 00 3 BRB 9$ ; 
2 DD 6 2$: PUSHL Re : 2738 
0000v CF 01 FB 0004 CALLS #1, PUT_DEVNAM_LINE ; 
e 11 004 BRB 9$ > 2724 
DD 00047 PUSHL  R2 > 2765 
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; Routine Size: 115 bytes, 


0000V 
0000V 


0000v 


0000Vv 


Routine 


16-$ 
14S 
CF 1 FB 00049 
¢ DD Baek 4$: 
CF FB S2 
gf 11 ©0055 
2 DD Y0057 5 
gf 01 FB 00059 
3 29 DO OO05E 6 
08 E8 00061 
50 53 00 00064 7$ 
04 00067 
52 DD 00068 8 
ff 4 FB BR 0OA 
0 1 DO QOO6F 9 
04 00072 


Base: S$CODE$ + 05A8 


a $2:58:55 


#1, PUT_DEVNAM_LINE 
#1, PUT_SOURCE_LINE 
i 

#1, PUT_PKT_PARENTPID 
RO, STATUS 


STATUS, 9$ 
STATUS, RO 


R2 
#1, PUT_PKT_PARENTUN 
#1, RO 
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Format the common message Lines. 


STATUS = PUT_COMMON(.RECORD_PTR, .BANNER_VECC.RECORD_PTRINSASW_REC_SUBTYPE]-1]); 
IF NOT .STATOS THEN RETURN “STATUS; 


Dispatch by record subtype to format the remainder of the message Lines. 
CASE zRECORD _PTRCNSASH_REC_SUBTYPES FROM 1 TO NSASK_RECTYPNUM_LOGO OF 
NSASK_RECTYP_LOGO_BATJ : 


1 

| OPCSSECURITY 1b-se 1984 01:48:5 AX-11 Bliss-32 V4.0-742 Page 50 

“YOG~000 12786 8=1 382 3:85:89 OPCOM. SRCISECURITY.B3251 . (12) 

3 1687 75 ROUTINE FORMAT_LOGO(RECORD_PTR) = | : 

1g Vis boa: 

3 149) 118 | Dani be eeripn: si 

ls s routine formats security alarm messages for records whose type ; 

3 149 vei 4? is NSASK_RECTYP_LOGO. (Logouts) . oe : 

13 146946 762 1! : 
wm gape, ; Bae 
: 1497 2785 i ms Compact : The security alarm record address. : 
: ; L $ ; 

3 1499 $789 7! NONE. : 
: 1500 sige 1! | 3 
; 1501 789 1 =! OUTPUT: ; 
: 150 2790 1 i NONE . | ; 
: 1308 2791 1 i | : 
3: 1504 $736 1! IMPLICT OUTPUT: : 
; 1505 e795 1! Formatted message in the alarm buffer. : 
; 1506 2794 1 | ; 
3; 1507 2795 1 ! SIDE EFFECTS: : 
iat ey] dl 
: 1510 2798 1 | ROUTINE VALUE: ; 
3 1511 2799 1! SS$_NORMAL or a $FAO system service error. ; 
ie. Ba : 
; 1514 2802 2 BEGIN ! Start of FORMAT_LOGO | ; 
; 1516 580, 5 MAP | ; 
; ta $005 s RECORD_PTR : REF S$BBLOCK; : 
: 1519 2807 2 OWN | : 
; 1520 2808 2 BANNER_VEC =: VECTORCNSASK_RECTYPNUM_LOGO) 3 
3 1521 2809 2 INITIAL(UPLIT(BYTE(ZASCIC ' / Batch process logout')), : 
3 Wee 2810 2 UPLIT(BYTE(ZASCIC ' / Dialup interactive logout')), | : 
: 1523 2 2 UPLIT(BYTE(ZASCIC * / Local interactive logout')) 3 
3 1524 2 2 UPLIT(BYTE(ZASCIC ' / Remote interactive logout')), ; 
3; 1525 2 2 UPLIT(BYTE(ZASCIC * / Network logout')) | : 
> 1526 2 2 UPLIT(BYTE(ZASCIC * / Subprocess logout’)), 3 
; 1362 3 $ UPLIT(BYTE(ZASCIC ' / Detached process logout'))); : 
: 1529 2 2 LOCAL | ; 
3 1380 2 : STATUS : LONG; ; 
; 1338 5 | ; 
3; 153 2 3 
> 1534 2 3 
: 1535 2 5 
3: 1536 2 3 
3; 1537 e 3 
; 1538 2 3 
: 1539 2 3 
3 1540 3 
; 2 1 3 g 
> 15 g 2 ; 


Pee ee et tek, bah a 


cote a a 


= 
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“YO0- 000 4-$ep-1984 12:50:55  LOPCOM. SRCISECURY TY-8 5351 12) 

3 1544 283 ' Batch process logout. 

3 1545 8 g : 3 : 

'; 1546 834 BEGIN 

1547 835 SS$_NORMAL; 

'; 1548 836 ND; 

i; 1349 8 f [NSASK_RECTYP_LOGO_DIA, NSASK_RECTYP_LOGO_LOC] : 

is 1551 2839 ! Dialup and local interactive logout. 

1 138 2840 | 
: 122 2841 BEGIN 
: 1554 gB4¢ 3 PUT_DEVNAM_LINE(.RECORD_PTR); 
; 1555 see : 
: 1556 844 CNSA$SK_RECTYP_LOGO_REM) : 

; 1557 Spee : 
; 1558 846 2 ! Remote interactive logout. 
: 1559 2847 ¢ ! 
: 1560 2848 BEGIN 
3; 1561 2849 3 PUT_DEVNAM LINE(.RECORD_PTR); 
: 1266 2850 3 STATUS = POT _SOURCE_LINE(.RECORD PTR); 
: 156 2851 3 IF NOT .STATOS THENTRETURN .STATOS; | 
; 1564 g85¢ 2 ND; | 
: 1565 2853 2 CNSASK_RECTYP_LOGO_NET) : 
: 1566 2854 2 
: 1567 2855 2 ' Network logout. 
3; 1568 2856 2 ! 
; 1569 2857 3 BEGIN 
; 1570 2858 3 STATUS = PUT_SOURCE_LINE(.RECORD PTR); 
; 1571 2859 3 IF NOT .STATOS THEN-RETURN .STATOS; 
; 1572 2860 2 END; 
: 1573 2861 2 CNSASK_RECTYP_LOGO_SUB) : 
: 1574 sa06 2 : 
; 1575 28635 2 ! Subprocess logout. 
; 1576 2864 § : 
3; 1577 2865 BEGIN 
: 1578 2866 3 STATUS = PUT _PKT_PARENTPID(.RECORD_PTR); 
; 1579 2867 3 IF NOT .STATOS TREN RETURN .STATUS; | 
: 1580 2868 2 END; 
; 1581 2869 2 CNSASK_RECTYP_LOGO_DET] : 
: 1582 2870 2 ' 
: 1583 2871 2 ! Detached process logout. 
: 1584 2872 é i | 
; 1585 2873 BEGIN 
> 1586 2874 3 SS$_NORMAL ; 
; 1587 see § END; 
; 1588 876 TES; 
> 1589 3877 2 RETURN SS$_NORMAL; 
3; 1590 878 1 END; ! End of FORMAT_LOGO 
-PSECT SPLITS,NOWRT,NOEXE,2 
0042A -BLKB) 2 
65 63 6F 72 70 20 68 63 74 61 42 20 sf $9 17 9042C P.ABS: .ASCII <23>\ / Batch process logout\ 3 
74 75 OF 67 6F 6C 20 73 73 U043B ; 
| 65 74 6€ 69 20 70 75 6C 61 69 44 $9 2F 20 as 00444 P.ABT: .ASCII <28>\ / Dialup interactive logout\ : 
74 75 OF 67 6F 6C 20 65 76 69 74 63 61 72 00453 : 


| 
4 


A ee ee 


1 

| OPCSSECURITY 1b-Sepe1 01:48:5 AX-11 Bliss-32 V4.0-742 Page 52. 

“¥Os=000 12-808-198s 93:98:2 OPCOM. GRCISECORI TY BS301 9135 
(72 65 74 6 69 20 6C 61 63 6F 4C 20 2F 20 1B aneee P.ABU aise 3579\ / Local int tive | t\ | 
| e : e oca nterac ve Logou P . 
MRR OAE REE ENE PUL Bin nun uch mnttien ware meni ot tf 
, oy emote interactive logout : : 
| 74 75 6F e9 6F 6C 20 65 76 25 3 63 61 15 3h an 3 : 3 : 
167 6F 6C 20 68 72 6F 77 74 65 4E 20 3F 20 11 004A0 P.ABW: <ASCII <17>\ / Network Logout\ : ; 
4 75 6F OO4AF : ; 
bo4ne .BLKB 2 | ; 
20 73 73 65 63 6F 72 70 62 75 53 20 2F 20 14 00484 P.ABX: .ASCII <20>\ / Subprocess Logout\ : | : 
74 75 6F 67 6F 6C O04¢5 pS : : 
. | e 
72 70 20 64 65 68 63 61 74 65 44 $9 2F 20 1A bocce P.ABY: .ASCII <26>\ / Detached process logout\ $ ; 
74 75 6F 67 6F 6C 20 73 73 65 63 6F O04DB : ; 
.PSECT $OWNS,NOEXE,2 ; 
00000000" 00000000" 00000000" 00000000' 00000000" 00000000' 00884 BANNER_VEC: : 
“ADDRESS P.ABS, P.ABT, P.ABU, P.ABV, P.ABW, - : ; 
00000000" 00B89¢ P.ABX, P.ABY : | ; 
.PSECT $CODE$,NOWRT,2 | : 
000C 00000 FORMAT_LOGO: ; 
.WORD Save R2,R3 : 2775 ; 
53 04 AC DO 00002 MOVL RECORD. PTR, R3 : 2823 ; 
50 02 Ad 3C 00006 MOVZWL 2(R3), : | : 
0000'CF40 DD OOO0A PUSHL BANNER_VEC-4(ROJ : ; 
53 DD O000F PUSHL : ; 
O000v CF 02 FB 00011 CALLS #2, PUT_COMMON : ; 
52 50 pO 00016 MOVL RO. STATUS : : 
3B 52 £9 00019 BLBC ‘STATUS, 7$ > 2824 ; 
06 01 02 A3 AF OO0IC CASEW 2(R3), #1, #6 : 2828 F 
0019 0010 0010 003A 00021 1$: .WORD 8$-1$,- : | ; 
003A 0029 0026 00029 2$-1$.- : : 
2$-1$,- : 3 
3$-1$.- : : 
4$-1$.- : ; 
5$-1$,- 5 3 
8$-1$ : g 
| 2A 11 0002F BRR «BS | 
53 DD 00031 2$: PUSHL R3 + 2842 3 
0000v CF 01 FB 00033 CALLS #1, PUT_DEVNAM_LINE : ; 
21. 11 00038 BRB aS > 2828 F 
53 DD O003A 3$: PUSHL R3 > 2849 : 
0000v CF 01 FB 0003C CALLS #1, PUT_DEVNAM_LINE : : 
53 DD 00041 4$: PUSHL R3 > 2858 : 
0000v CF 01 FB 00043 CALLS #1, PUT_SOURCE_LINE ; | : 
07 11 00048 BRB 6$ : : 
53 DD OO04A 5$: PUSHL RS > 2866 : 
0000v CF 01 FB 0004C CALLS pur PKT_PARENTPID ; : 
52 50 DO 00051 6$: MOVL oe TAT § : F 
04 32 E8 00054 BLBS at > 2867 | : 
50 52 DO 00057 7$: MOVL STATUS RO : : 
04 0005A RET : : 
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Routine Base: S$CODE$ + 0618 


95 bytes, 


r 


| 1 
“opcssecuRiTy 1B-Sep-1984 1:48:50 yayett BLige=52, 


l3 123 443 | ROUTINE FORMAT_VOL(RECORD_PTR) = 
13 1596 +} 1 t+4 

: 123? 5 § : FUNCTIONAL DESCRIPTION: 

5 1389 384 ie This routine formats security alarm messages for records whose type 
ls 1238 885 1! is NSASK_RECTYP_VOL. (Volume operations) 

; 1599 886 1! 

; 1600 887 1! INPUT: 

; 1601 888 1! RECORD_PTR : The security alarm record address. 

; 1006 889 1! 

; 160 520 1 ! IMPLICIT INPUT: 

; 1604 91 1! NONE. 

; 1605 $o36 1! 

3 1606 28935 1 ! OUTPUT: 

; 1607 894 1! NONE . 

; 1608 895 1! 

; 1609 896 1 ! IMPLICT OUTPUT: 

: 1610 897 1! Formatted message in the alarm buffer. 

> 1611 2898 1! 

; 1612 2899 1 ! SIDE EFFECTS: 

; 1613 2900 1! NONE. 

3; 1614 2901 1! 

3; 1615 344 1 ! ROUTINE VALUE: 

: 1616 2903 1! SS$_NORMAL or a $FAO system service error. 

; 1617 2904 1 !-- 

: 1618 2905 1 

; 1619 2906 2 BEGIN ! Start of FORMAT_VOL 
; 1620 2907 2 

; 1621 2908 2 MAP 

3 1622 2909 2 RECORD_PTR : REF $BBLOCK; 

3 1623 2910 2 

3 16246 2911 2 OWN 

3: 1625 $aig 2 BANNER_VEC =: VECTORCNSASK_RECTYPNUM_VOL) 

; 1626 2913 2 INITIALCUPLIT(BYTE(ZASCIC * / Volume mount')), 
; 1627 2914 2 UPLIT(BYTE(ZASCIC * / Volume dismount'))); 
; 1628 2915 2 

; 16 2916 2 LOCAL 

: 1630 2917 2 STATUS : LONG; 

: 1631 2918 2 

; 1o3¢ 2919 2! , 

3 see7 $350 2 : Format the common message Lines. 

: 1635 2338 STATUS = PUT COMMON(.RECORD_PTR, .BANNER_VECC.RECORD_PTRLINSASW_REC_SUBTYPEJ-1)); 
; 1636 3923 IF NOT .STATOS THEN RETURN STATUS; 

; 1638 $955 2 ! Format the image name, device name, logical name, volume name, and volume set 
; 1639 $958 ! name message Lines. 

: 1640 92 : 

; 1641 928 PUT_PKT_IMGNAM(.RECORD PTR); 

> 1642 929 2 PUT-DEVRAM_LINE(.RECORD PTR); 

> 1643 930 T“PKT_LOGNAM(.RECORD_PTR); 

> 1644 931 PUT_PKT-VOLNAM( -RECORD PTR); 

; 1645 93¢ I jPRTCOUNT _TAB NSASR_PKTTYP_VOLSNAM-1] NEQ 0 

3; 1647 598% PUT_PKT_VOLSNAM(.RECORD_PTR); 

; 1648 2935 IF .RECORD_PTRENSASW_REC_SUBTYPE) EQLU NSASK_RECTYP_VOL_MOU 


—_—_____——_ 
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3 1649 9 $ THEN ; 
; 1930 9 ! 3 
; 1651 938 : Record subtype is mount... format the volume UIC, volume protection, and : 
: 1626 939 ' volume mount flag message Lines. 3 
3; 16 940 ! ; 
> 1654 941 BEGIN ; 
; 1655 Be6 STATUS = PUT_PKT_VOLUIC(.RECORD_PTR); ; 
>; 1656 94 IF NOT .STATOS TREN RETURN .STATUS; 3 
; 1657 944 PUT_PKT_VOLPRO(.RECORD_PTR); : 
; 1658 945 PUT_PKT_MOUFLG(..RECORD-PTR); ; 
; 1659 946 END 3 
: 1660 947 ELSE ; 
: 1661 945 ! - 
: 106¢ s3e0 Record subtype is dismount... format the dismount flag message Lines. : 
3; 1664 2951 $ PUT_PKT DMOUFLG(.RECORD_PTR); : 
: 1665 $328 2 RETURN 5S$_NORMAL; : 
3: 1666 29535 1 END; ! End of FORMAT_VOL | : 

-PSECT S$PLITS,NOWRT,NOEXE,2 : 
0047 .BLKB 1 | ; 

6— 75 6F 6D 20 65 6D 75 6C 6F 56 20 2F 20 of Oee? P.ABZ: .ASCII <15>\ / Volume mount\ $ . 

60 73 69 64 20 65 6D 75 6C 6F 56 20 2F 20 12 OO4F8 P.ACA: .ASCII <18>\ / Volume dismount\ : | : 
74 6€ 75 6F 00507 ; 3 

-PSECT $OWNS,NOEXE,2 | ; 

00000000* 00000000" OOBAO BANNER_VEC: 3 

-ADDRESS P.ABZ, P.ACA : : 

. 

-PSECT $CODE$,NOWRT,2 : 

000C 00000 FORMAT_VOL: 3 

eWORD Save R2,R3 ; 2879 3 

52 04 AC D0 00002 MOVL RECORD_PTR, R2 : 2922 $ 

50 02 A2 3C 00006 MOVZWL 2(R2), R 3 3 

0000'CF40 DD OO00A PUSHL BANNER_VEC-4(RO] ; : 

3S DD bones PUSHL ag ; ; 

O000V CF 0 FB 00011 CALLS #2, PUT_COMMON § : 

53 29 DO 00016 MOVL RO, STATUS 3 3 

3C 53 €9 00019 BLBC STATUS, 2$ 3: 2923 3 

52 DD Boot PUSHL R2 3: 2928 3 
0000v CF 01 FB th CALLS #1, PUT_PKT_IMGNAM 3 3 
52 DD 000 PUSHL R2 : 2929 3 

| 0000v CF 01 FB 00095 CALLS #1, PUT_DEVNAM_LINE : 
52 DD GO02A PUSHL R2 ; 2930 3 

0000v CF 01 FB 0002C CALLS #1, PUT_PKT_LOGNAM : : 

52 0D 00031 PUSHL R2 : 2931 3 

OO00v CF 01 F 0033 CALLS #1, PUT_PKT en 3 é 
| 0000' CF 95 00038 TSTB» PK F_COUNT_TAB+ : 2932 | : 

07 13 0003C BEQL 1$ 3 | 3 


1 | 
‘ores CURITY 1b-sep -1984 AX-11 Bliss-32 V4.0-742 Pa 6| 
06-000 rnee=iohe Fhisbi8e = FaKC AD Bbigseze Ve sOn tse. 9 438 
52 DD 0003 PUSHL 5 2934. : 
0000v cr 84 FB O26 CALLS Re put afk _VOLSNAM : . : 
1 02 A2 Bi 45 1$: CMPW 2 (R2) + 2935. : 
$2 Db 00008 PUSHL : 2942. ; 
0000 CF Q1 FB 0040 CALLS te PUT_PKT_VOLUIC : | F 
3 D 005¢ MOVL RO. STATUS : ; 
04 53 £8 0005 BLBS STATUS, 3$ + 2943 ; 
0 5 ? pp bee 2$: oer STATUS, RO : : 
52 DD 0005C 3$ PUSHL R2 + 2944 ; 
0000v CF 01 FB 00055 CALLS #1, PUT_PKT_VOLPRO : : 
52 DD 0006 PUSHL R2 + 2945 : 
0000v CF 01 FB 00065 CALLS #1, PUT_PKT_MOUFLG : 
oF op once 4s: eM OaS : 3383 
0000v CF 01 FB 000¢E CALLS #1, PUT_PKT_DMOUFLG : 
50 01 dO 00073 5$ MOVL #1. RO + 2952 
04 00076 RET + 2953 


; Routine Size: 119 bytes, Routine Base: $CODE$ + 067A 
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 OPCSSECURITY 
_ V04-000 
(; 1668 954 
: 1669 955 
: 1670 328 
: 1671 95 
; 1or6 228 
3; 167 95 
: 1674 960 
; 1675 961 
: 1676 $308 
; 1677 296 
3; 1678 2964 
3; 1679 $oee 
: 1680 966 
; 1681 2967 
3 oes 968 
: 168 969 
: 1684 970 
: 1685 2971 
: 1686 $376 
; 1687 297 
; 1688 2974 
: 1689 2975 
: 1690 2976 
3 1691 2977 
3; 169 2978 
3: 169 2979 
3 1694 2980 
: 1695 2981 
3; 1696 2982 
3; 1697 2983 
; 1698 2984 
3; 1699 2985 
: 1700 2986 
3; 1701 2987 
5 1706 298 
; 170 2989 
3: 1704 990 
3; 1705 991 
3; 1706 99 
: 1707 299 
3; 1708 299 
3; 1709 2995 
: 1710 2996 
s 1711 997 
3 ar 998 
3; 171 999 
: 1714 000 
: 1715 001 
3: 1716 300 
: 1717 00 
; 1718 4 
3 1719 005 
; 1720 00 
; 1721 00 
: 17 ; 008 
: 172 009 
: 1726 3010 
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ROUTINE PUT_COMMON(RECORD_PTR, ASCIC_PTR) = 


14 


lee 
! FUNCTIONAL DESCRIPTION: 


This routine moves the message identification string into the alarm 
buffer and formats all of the common security alarm aeceage lines and 
puts them in the alarm buffer. The common information consists of the 
event time, the process ID, and the process user name. This information 
is obtained from the security alarm record header. 


INPUT: 
RECORD PTR : The security alarm record address. y 
ASCIC_PTR : — of the counted ASCII message identification 
string. 
IMPLICIT INPUT: 
NONE. 
OUTPUT: 
NONE. 


IMPLICT OUTPUT: 
Formatted common message Lines in the alarm buffer. 


SIDE EFFECTS: 
NONE . 


ROUTINE VALUE: 
SS$_NORMAL or a SFAO system service error. 


i ee et ee ee ee ee ee ee ee 


BEGIN ! Start of PUT_COMMON 
LITERAL 
TIM_BUF_SIZ = 23; 
MAP 
RECORD_PTR : REF S$BBLOCK; 
BIND 
TIME_BUF = UPLIT(BYTE(ZASCIC Time: *)). 
PID_BurF = UPLIT(BYTE(ZASCIC * PID: a} 
NAME _BUF = UPLIT(BYTE(ZASCIC User Name: *)), 
CONTROL = ZASCID *!XL'; 
BUFFER : VECTORCTIM_BUF SI? gvTed. 
TIME_DESCR SBBLOCKCDSC$C_S_BLN 
PRESET(COSC$W_LENGTH] = TIM BUF SIZ, 
Dscse_prveed = DSCSK_DTYPE_T, 
DSCS$B-CLASS] = DSCSK-CLASS"D, 
DSC$A_POINTER] = BUFFER), 
LENGTH : LONG, 
STATUS : LONG; 


Page 57) 
. (14) | 


.EXTRN SYSSASCTIM, SYSSFAO 
| .PSECT $CODE$,NOWRT,2 
007C¢ 00000 PUT_COMMON: 


1 | 

OPC URITY 16- S$ep-1984 01:48:5 AX-11 Bliss-32 V4.0-742 Page 58 

iseties 1erep=13be 938529 FaKe oe Bhi g ee Re Ves ese, 9° 48) 
hy i 5 91) } Move the message id string into the alarm buffer. : 
: 17 5 838 but _STRING ASCIC(.ASCIC PTR) ; : 
; if 8 Be PUT “NEWLINE (0); : 
; 4 : 81$ i Convert the event time and format the event time message Line. 3 
: 1738 B $018 g STATUS = SASCTIM(TIMLEN = TIME DESCR, | 
: 17 P 301 TIMBUF = TIME-DESCR ; 
: 17 020 TIMADR = RECORD PTRENSASQ_REC_TIME]); : 
: 1735 021 IF NOT .STATUS THEN RETURN ~STATOS; : 
: 17 0 é PUT _STRING . A CIC(TIM ; 
: 17 0 iF ~BUFFERT EQLU ' 8 THE BUFFERLO] = '0'; : 
; 1738 024 RING ASCIDCTINE DESCR); : 
; 444 ° ; PUT “NEWLINE ); ; 
: Fo} 094 7 Convert the process id and format the process id message Line. : 
: 1728 0¢9 PUT_STRING_ASCIC(PID_ BUF); : 
: 1744 030 STATUS = SFA AOKC (CONTROL LENGTH ALARM_DESCR, .RECORD_PTRINSASL_REC_EPIDJ); 3 
: 1245 031 5 Tr NOT -STATUS. THEN. RETURN. “STATUS; | 
: 1746 032 ALARM_DESCR bees LEN NETHIN = ,ALARM_DESCRCDSC$W_LENGTH] - ,LENGTH<O, 16,0>; : 
+ 1747 03 ALARM~DESCR DSCSA_ “POINTER) = -ALARM_DESCRLDSC$A_POINTER] + .LENGTH<O,16,0>; : 
+ 1748 034 PUT NEWLINE (0); ; 
: 1749 035 : 
: 1750 3036 | Format the user name message Line. 3 
: 1751 3037 : 
; 1732 3038 but _STRING_ASCIC(NAME_B : 
: 175 039 2 PUT TSTRINGTNSASS REC OSeRNiM, RECORD_PTRCNSAS$T_REC_USERNAM]) ; : 
: 1754 3000 § STR reas $,TRATL CACARM_ DESCR); 3 
: 1755 041 PUT_NEWL ; 
: 1756 3042 2 RETORN ase NORMAL; : 
: 1757 3043 1 END; ! End of PUT_COMMON : 
.PSECT $PLITS,NOWRT ,NOEXE ,2 3 
0050B -BLKB. 1 ; | ; 
09 09 3A 65 6D 69 54 09 08 9950¢ P.ACB: ASCII <B><9>\T ime : \<9><9> : : 
09 09 3A 44 49 50 09 07 G9s18 P.ACC: ASCII <7><9>\PID:\<9><9> F | : 
09 3A 65 6D 61 4E 20 72 65 73 55 09 OC 90320 P.ACD: ASCII <12><9>\User Name: \<9> : : 
00 4C 58 21 $628) P.ACF: .ASCII \iXL\ <3 F : 
010E0003 00534 P.ACE: .LONG 4723 3 8 
| 00000000' 00538 sores. Ny one 3 | : 
| TIME BUF = P.ACB : 
| PID BuF= P.ACC | : 
NAME_BUF= P-ACD | 3 
CONTROL= PACE : 


- 
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Yo0~000 p= 1984 12:50:55  LOPCOM. SRCSECORI TY BSo—1 906 18) | 
.WORD Save R2,R3,R4,R5,R6 : 2954 
§ Booy CE 9E 00002 MOVAB PUT STRING. Asti, R6 : 
CF 9E 00 MOVAB ALARM_DESCR : 
4 O0Ov CF 9 B806 MOV PUT NEWLINE, R4 : 
5E 4 C2 00017 SUBL / : 
04 AE 02060017 &F p 0014 MOVL #36471959 TIME_DESCR : 3006 
08 AE oC AE 9E 0001C MOVAB BUF FER, TIME_DESCR+4 ; 
08 AC 0D 00021 PUSHL ASCIC : 3013 
£4 91 FB 00024 CALLS bor STRING ASCIC : 
E D4 00027 CLAL gp) + 3014 
64 01 FB 00029 CALLS #1, PUT_NEWLINE 3 
7E 04 99 ¢ CLRL 30s = §P) : 3020 
52 04 AC 00 00 MOVL _—- RECORD_PTR, R2 : | 
10 Ad OF 90 PUSHAB 16(R2)~ : 
OC AE 9F 0003 PUSHAB TIME -DESCR : 
10 AE 9F 00038 PUSHAB TIME DESCR : 
000000006 00 4 FB 00038 CALLS 4&4, SYSSASCTIA ; 
53 0 00 00042 MOVL RO, STATUS : 
3E 53 £9 0004 LBC STATUS, 2$ : 3021. 
0000' CF SF 00048 PUSHAB TIME BUF : 3022 
66 01 FB 0004C CALLS #1, PUT_STRING_ASCIC 3 
20 Oc AE 91 0004F CMPB BUFF : 3023. 
04 12 00053 BNEQ 1 : 
OC AE 30 90 00055 MOVB #48, BUFFER : 
04 AE 9F 00059 1$: PUSHAB TIME_DESCR + 3024 
0000v CF 01 FB 000SC CALLS #1, PUT_STRING_ASCID 3 
7E D4 00061 CLRL = = (§P) : 3025 
64 01 FB 00063 CALLS #1, PUT_NEWLINE : 
0000" CF 9F 00066 PUSHAB PID_BUF : 3029) 
66 01 FB 0006A CALLS #1, PUT_STRING_ASCIC : 
OC A2 DD 0006D PUSHL  12(R2) : 3030 
55 0D 00070 PUSHL RS : 
08 AE 9F 00072 PUSHAB LENGTH : 
0000" CF 9F 00075 PUSHAB CONTROL : 
000000006 00 04 FB 00079 CALLS #4, SYSSFAO ; 
53 50 DO 00080 MOVL 0, STA : 
04 53 €8 00083 BLBS STATUS, 3$ : 3031 
50 53 DO 00086 2$: MOVL STATUS, RO ; 
04 00089 RET : 
65 6E A2 0008A 3S: SUBW2 LENGTH, ALARM_DESCR : 3032 
50 6E— 3C 0008D MOVZWL LENGTH, R : 3033 
04 AS 50 CO 00090 DDL2 RO ALARM_DESCR+4 : 
7E 04 00094 CLRL : 3034 
64 01 FB 90096 CALLS #1, PUT_NEWLINE : | 
0000" CF 9F 00099 PUSHAB N : 3038 | 
66 01 FB 6009 CALLS #1, PUT_STRING_ASCIC : 
38 A2 9F OOOAOD PUSHAB 56(R2) : 3039 
OC DD 000A3 PUSHL #1 : 
0000v CF 0¢ FB OO0A5 CALLS #2, PUT_STRING : 
DD OOOAA PUSHL : 3040 | 
0000v CF 01 FB Goaat CALLS #1, STRIP_BLANKS_TRAIL : 
E 04 00081 CLRL oe > 3041 
64 01 FB 000B3 CALLS #1, PUT_NEWLINE 3 
50 01 p00 00086 MOVL #1, RO > 304 
04 00089 RET : 304 
FI 


|; Routine Size: 186 bytes, Routine Base: $CODE$ + 06 
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Bliss-32 Page 61. 
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'; 1759 Ree 1 ROUTINE PUT_NETUAF_LINE(RECORD_PTR, RECNUM) : NOVALUE = 
'; 1760 45 1 
'; 1761 pag 1 !44 

; 1766 047 1 ! FUNCTIONAL DESCRIPTION: 

: 176 048 1! 
's 1764 049 1! This routine formats a network authorization Line. A network 
1; 1765 050 1! authorization Line consists of the remote node and user name, and the 
3; 1766 051 1! local name the user is mapped to. 

3; 1767 p26 1! 

: 1768 055 1 =! INPUT: 

3; 1769 054 1! RECORD_PTR : The serur tty alarm record address. 

: 1709 82? : RECNUM : Specifies which NODENAM and USERNAM packets to use. 
: Hae: 057 1 =! IMPLICIT INPUT: 

: 177 058 1! NONE. 

31774 059 1: 

: 1775 060 1 ! OUTPUT: 

; 1776 $003 1! NONE. 

3: 1777 O66 1! 

: 1778 3063 1 ' IMPLICT OUTPUT: ' : 

3; 1779 3064 1 | Formatted network authorization Line in the alarm buffer. 

: 1780 3065 1 

: 1781 $009 1 ' SIDE EFFECTS: 

; Tee 067 1! NONE. 

3 178 3068 1! 

3; 1784 3069 1 i ROUTINE VALUE: 

: 1785 3070 1! NONE. 

3; 1786 3071 1 Ii- 

: 1787 $058 1 

3; 1788 3073 2 BEGIN ! Start of PUT_NETUAF_LINE 
3: 1789 3074 2 

: 1790 3075 : p 

; 1791 3076 RECORD_PTR : REF $BBLOCK; 

: 16 3077 2 

; 179 3078 2 BIND 

3: 1794 3079 2 BLANKS = UPLIT(BYTE(ZASCII ° "Dds 

3: 1795 3080 2 

3: 1796 3081 2 LOCAL 

; 1797 tong 2 PTR : LONG; 

: 1798 3083 2 

; 1799 3084 2 PTR = .ALARM pe scet paces POINTER] + 

; 1800 3085 PUT_PKT STRING(.RECORD_PTR, NSASK Pati -NODENAM, .RECNUM); 

; 1801 3086 IF CALARM_DESCRE DSCSA BOINTERS NEGU . 

: 1808 36 8 UT_STRING(.PTR = .ALARM_DESCRCDSCSA_POINTER], BLANKS); 

3 1804 089 PUT_STRING_ASCIC(COLON F); 

; 1805 090 = .ALARM DESCRCDSCSA_POINTER] + 13; 

: 1806 091 PUT_PKT_STRING(.RECOR Wes PTR, NSASK_PKTTYP_USERNAM, (.RECNUM-1) #241); 

: 1807 309 § PUT_ STRING(.PTR = . ALARM DESCREDSTSA POINTER], BLA NKS); 

; 1808 309 PUT-PKT_STRING(. RECORD D_PTR, NSASK “PKTTYP_USERNAR, ai RECNUM-1) #242); 

3 1809 094 2 PUT_NEWCINE(O); 

; 1810 095 1 END? ! End of PUT_NETUAF_LINE 


-PSECT $PLITS,NOWRT ,NOEXE ,2 


SS , 


; Routine Size: 109 bytes, Routine Base: $CODE$ + 07AB 


B 2 
OPCSSECURITY 16-Sep-1984 01:48:5 AX=11 Bliss-32 V4.0-742 Page 62. 
v04-000 2286p G84 93:4 38 OPCOM. SRCISECURITY B32 1 a 5 
} 
20 20 20 20 20 20 20 20 20 20 20 20 0053C P.ACG: .ASCII \ \ : | : 
BLANKS= P.ACG ; 
-PSECT $CODES$,NOWRT,2 | ; 
003c¢ 00000 PUT_NETUAF ALINE: sk Se i a Soa ; 
¥ ave R2, ‘ 3 ; 
55 0000V CF 9E 00002 MOVAB PUT PKT STRING, R5 ; | ; 
54 0000' CF 9E 00007 MOV ALARM_DESCR+4, R4 : : 
53 64 06 C1 90006 ADDL #6, ACARM_DESCR+4, PTR ; 3084 : 
08 AC dD 0001 PUSHL RECNUM ; 3085) r 
09 DD 0001 PUSHL : ; 
04 AC DD 0001 PUSHL RECORD PIR : ; 
65 03 FB 00018 CALLS #3, PUT_PKT_STRING : ; 
53 64 D1 0001B CMPL § ALARM_DESCR#4, PTR : 3086. 3 
0D 13 OOO1E EQL sé : ; 
0000" CF 9F 00020 PUSHAB BLANKS ; 3088 | ; 
7E 53 64 C3 00024 SUBL3 ALARM DESCR+4, PTR, -(SP) : | ; 
0000v CF 02 FB 00028 CALLS #2, POT STRING : : 
0000" CF 9F 000¢0 1$: PUSHAB COLONS_BUF ; 3089 ; 
0000v CF 01 FB 00031 CALLS #1, PUT_STRING_ASCIC : ; 
53 64 0D C1 00036 ADDL3 #13, ALARM_DESCR+4, PTR : 3090 ; 
52 08 AC DO 0003A MOVL § -RECNUM, R : 3091 ; 
7E 52 01 78 0003E ASHL = #1, _R2. ~(SP) : | : 
6E D7 00042 DECL SP) : ; 
OA DD 00044 PUSHL ; : 
04 AC DD 00046 PUSHL RECORD PTR F ; 
65 03 FB 00049 CALLS #3, PUT_PKT_STRING ; : 
0000" CF 9F 0004¢ PUSHAB BLAN : 3092. ; 
7E 53 64 C3 00050 SUBL3 ALARM DESCR+4, PTR, -(SP) : ; 
oo00v CF 02 FB 00054 CALLS #2, POT_STRING : | : 
7E 52 01 78 00059 ASHL #1, R2,~=( ; 3093 | ; 
OA DD 0005D PUSHL #1 ; | ; 
04 AC DD 0005F PUSHL RECORD_PTR : ; 
65 03 FB 00062 CALLS #3, PUT_PKT_STRING ; : 
7E D4 00065 CLRL. = = (§P) : 3094 ; 
0000v CF 01 FB 00067 CALLS #1, PUT_NEWLINE : | : 
04 0006C RET ; : 
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ROUTINE PUT_DEVNAM_LINE(RECORD_PTR) : NOVALUE = 


'+¢ 

4 } FUNCTIONAL DESCRIPTION: 

8 This routine formats a device name line and puts it in the security 
alarm buffer. A device name Line consists of the device name, (obtained 

0 from the first DEVNAM packet), and optionally a second device name in 

8 parenthesis if there is a second DEVNAM packet. 

0 ' INPUT: 

8 RECORD_PTR : The security alarm record address. 

0 ' IMPLICIT INPUT: 
NONE. 

OUTPUT: 


IMPLICT OUTPUT: 
Formatted device name Line in the alarm buffer. 


: SIDE EFFECTS: 
NONE . 


ROUTINE VALUE: 
NONE. 


i 
' 

i 

i] 

' 

NONE . 
' 

! 

i 

i 


BEGIN ! Start of PUT_DEVNAM_LINE 


BEES EWWAWANWNIAIDIDIPPPNPNPNOPY 2 SS OS OS SS 


DWNAWEWN OO OONOAUE WN O OONA UE WN OS ODNAU EWR OVDONAUEWN OVO ONOULS Wr 


Pp 
RECORD_P1®% =: REF S$BBLOCK; 


LPLSLLLLL& & Oo do Oo Go Go Go G0 C8 09 G9 G9 G9 00.09 9 09.09.00 09.00 09. 0909.09 0000 


el ee ee ee el ee el ee ce ee a el el a ee ee eel lt eel el el el el a el el el el el el eel ee el el ll cl el el el ee eel el eel el 
AAAI AAAN AAAI AAI AI AIA AIA AIA ANIA AAAI NIAAA AIA AANNAIINANWAI NINO 


ee ee ee ee ee ee ae S| 


VV BS BBB BE BE BE EWAN AIAAAIAIAIDIPIPOPU NINN NONIDYD 2 2 SS OO OS 

= PIT INI. WIA IRI PINYNIPINPONYININININIPINIPIPINPINININID) 2 2 tS SS tt 
@ =z 
ee 


Be Se Se Be Be Be Se Se Fe Se Ge Be Se Be Be Ge Fe Ge Se Se Ge FH Fe Se Fe Se oe Ge Se Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Gs Ge ee Fe Se ee es Oe Se FHS Se Se Se ee 


MR —OOODNOVUE WD = OOD NAUE WIN $$ O OONAUE WN SO OONAOU EWR “OVO ENOUSWNRO 


DEVNAM BUF = UPLIT(BYTE(ZASCIC ° Dev Name 3, 
84 LEFT_BOF = UPLIT(BYTE(ZASCIC ° (')), 
Se RIGHT_BUF = UPLIT(BYTE(ZASCIC *)")); 
85 ! 
e : Format the first part of the device name message Line. 
85 PUT_STRING. ASCIC(DEVNAM_BUF); 
8 PUT PKT_STRING(.RECORD_PTR, NSASK_PKTTYP_DEVNAM, 1); 
85 i If there is a second device name packet, append it within parenthesis to 
$2 the device name message Line. 
86 IF .PKT_COUNT_TABLNSASK_PKTTYP_DEVNAM-1] EQLU 2 
86 THEN 
86 BEGIN 
86 PUT_STRING_ASCIC(LEFT_ BUF); 
86 PUT~PKT_STRING(.RECORD_PTR, NSASK_PKTTYP_DEVNAM, 2); 
86 PUT~STRING_ASCIC(RIGHT BUF 5; 
86 
86 


ND; 
PUT NEWLINE (0); 


ND; ' End of PUT_DEVNAM_LINE 


09 3A 65 6D 61 4E 20 76 65 44 09 9 0548 
28 20 20 6 0554 
9 01 00558 


0000Vv 


0000Vv 


0000v 


52 
62 


; Routine Size: 67 bytes, Routine Base: 


0000V 
0000" 


04 
0000' 
0000° 


04 
0000" 


SCODES 


=] 
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oOOoCoooooooooooooo: 
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hh = MONS MS MO Noon 
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30:35 LOPcon. SRCISE 


SPLITS,NOWRT,NOEXE,2 
<11><9>\Dev Name: \<9> 
<3>\ 
<1>\)\ 
P.ACH 


-ACI 
P.ACJ 


SCODES,NOWRT,2 


‘Say R2 
sa ae ASCIC, R2 
a)" PUT_STRING_ASCIC 


CORD 
ne BUT. Per STRING. 
Pict. COUNT_TAB+4, #2 


rie "BUT STRING_ASCIC 

RECORD PTR 

# fit PKT STRING 
POT_STRING_ASCIC 

#1, PUT_NEWL INE 


2 
OPCSSECURITY 16-5 -1984 01:48:5 AXx=1 
9045000 1 4 8: 


18 
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ao, 
uM 
nw 
me 
Ow 
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L 
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; 1870 153 1 ROUTINE PUT_SOURCE_LINE(RECORD_PTR) = 

; 1871 154 (1 

; ere 155 1 S44 

; 187 138 1 ! FUNCTIONAL DESCRIPTION: 

: 1874 bia 

; 1875 168 1! This routine formats a network source Line. A network source Line 
; 1876 137 1 3 consists of the remote node number, node name, and the remote username. 
; 1877 160 1! This information is obtained from the first NODEID, NODENAM, and USERNAM 
; 1878 161 1! packets in the security auditing record. 

; 1879 196 1! 

; 1880 165 1°! INPUT: 

; 1881 164 1! RECORD_PTR : The security alarm record address. 
: Ione 165 1! 

: 188 166 1°! IMPLICIT INPUT: 

3; 1884 167 1! NONE. 

>; 1885 168 1! 

>; 1886 169 1 =! OUTPUT: 

: 1887 170 1! NONE. 

; 1888 aur) 3 3 

; 1889 31% 1 ! IMPLICT OUTPUT: ; 

: 1890 3175 1! Formatted source Line in the alarm buffer. 

: 1891 3174 1! 

; 1996 3175 1 ! SIDE EFFECTS: 

; 189 3176 1! NONE. 

3: 1894 3177 1! 

3; 1895 3178 1 ! ROUTINE VALUE: : 

3: 1896 3179 1! SS$_NORMAL or a $FAO system service error. 

3; 1897 3180 1 !-- 

; 1898 3181 1 

3; 1899 3182 2 BEGIN ! Start of PUT_SOURCE_LINE 
: 1900 3183 2 

3; 1901 3184 2 MAP 

: 1902 3185 2 RECORD_PTR : REF $BBLOCK; 

; 1903 3186 2 

3 1904 et LITERAL 

3 1905 188 NODE_BUF _SIZE = 9; 

: 1906 3189 

: 1907 3190 2 BIND 

; 1908 3191 2 SOURCE BUF = UPLIT(BYTE(ZASCIC *° Source: "3d. 
: 1909 $136 CONTROL 1 = ZASCID ‘!UB.!UW" 

; 1910 319 CONTROL2 = ZASCID ‘!+!UW'; 

3 1911 3194 

; at 3195 LOCA 

3; 191 196 BUFFER : VECTORCNODE pur size BYTE. 

3 1914 197 NODE_DESCR : $BBLOCKCDSCSC_S-BLN 

3 1915 198 PRESET(COSC$W-LENGTH] = NODE BUF SIZE, 

3: 1916 3199 2 44h Se? = DSCSR_DTYPE_T, 

3 1917 $500 5 DSC$B_CLASS] = DSCSK_CLASS_D, 

: 1918 201 DSCSA_POINTER) = BUFFER), 

3 1919 3508 PKTPTR : REF S$BBLOCK, 

: 1920 0 CONTROL : LONG, 

3; 1921 204 STATUS : LONG; 

3 19 ; 05 

: 19 5] ‘ : : : 
3 1926 0 ' Move the Label field into the alarm buffer and form a pointer to the node 
: 1353 $508 ! id packet. 

3; 1926 : 


| 5 < 
OPCSSECURITY 16-Sep-1984 AX=11 Bliss-32 V4.0-7 2 Page 66 
\V 06000 [e~geen13Re Phebe ANCA Ok igge3e ve. Onrse 9 49 
PUT STRING ASCIC (SOURCE BUF 

PKTPTR = .PKT_POINTER_TABL.PKT_INDEX_TABLNSASK_PKTTYP_NODEID=-1]]; 
i Convert the node id and move it into the alarm buffer. 

iF .PKTPTRINMASV_AREA] NEQU 0 

CONTROL = CONTROL1 

CONTROL = CONTROL2; 

STATUS = SFAO(.CONTROL, NODE_DESCRCDSC$W_LENGTH], NODE_DESCR, .PKTPTRINMASV_AREA], .PKTPTRINMASV_ADDR]); 
IF NOT .STATUS THEN RETURN .STATUS; 

STRIP_BLANKS STRING(NODE DESCR); 

PuT _STRING_ASCID (NODE ODESCR, | 


Add *’ nodename::remoteid’’ to alarm buffer. 
Substitute "(None)" for a 0 Length node name. 


PUT_STRING ASCICCSPACES BUF); 
PKTPTR = .PKT R_TAB .PKT_INDEX_TABLNSASK_PKTTYP NORENAM=1313 
\d {. PKTPIRENSASW PET “SIZEI - NSASK_PKTHDR_LENGTH) GTRU 


“pur -PKT_STRING(.RECORD_PTR, NSASK_PKTTYP_NODENAM, 1) 
PUT STRING_ASCIC (NONE BUF); 


| 

| 

| 

PUT_STRING_ASCIC(COLONS BOF); 

PUT_PKT siti NGC. RECORD sptR. NSASK _PKTTYP_USERNAM, 1); | 
j 
| 
| 
| 
| 


SRIF Wr —-OOO~n 


Ft et tee 


MEW OO OONOUSWN—O 


PUT NEWLINE (0) 
RETORN SS$_ NORMAL: 
ND; ! End of PUT_SOURCE_LINE 
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-PSECT SPLIT$,NOWRT,NOEXE,2 


QO5S5A -BLKB 2 
09 09 3A 65 63 72 75 6F 53 09 OA B0226 PACK: area <10><9>\Source:\<9><9> 3 

00 57 55 21 2€ 42 55 21 00568 P.ACM: 1 fs 1508 SYN <O> : | 
010E9007 00570 P.ACL: .LONG 4727 : 
00000000" 00574 ADDRESS once : 
00 00 00 57 55 21 se st 00578 P.ACO: -ASCII \!+!UW\<0><0><0> : 
010E0005 00580 P.ACN: <LONG 17694725 : 
00000000" 00584 -ADDRESS P.ACO : 

teat: BUF = P.ACK 

ROC1= P.ACL 

CONTROLZ= P.ACN 


-PSECT SCODES,NOWRT,2 
001C 00000 PUT_SOURCE LIME: 


WORD e R2,R3,R > 3153 
54 9000" CF 9€ 0000 MOVAB Bey “POINTER Tas R4 ; | 
53 000v CF 3 000 MOV PUT STRING ASCI€, R3 : 
SE 10 C2 0000C SUBL2 #167 : 


OPCSSECURITY 
705-000 
02060009 8F oD OF 
04 AE AE 9E 15 
v0 cf f 1A 
3 1 fe IF 
9 F6 AG 0 
6440 p 5 
FC F 01 Ag 0 9 
0? 1 
50 0000' cf GE 5 
§ 11 6 
50 0000" CF 9E 000 
7E 63 A 0 EF 99 ¢ 
7E é, 6 A EF 4i 
08 AE 9F 00046 
OC AF 9F 00049 
50 DD 0004¢ 
000000006 00 5 FB O0%E 
58 0 €9 0005 
E DD 00058 
0000v CF gi FB OOOSA 
E DD 0005F 
0000v CF 01 FB 90061 
0000' CF 9F 00066 
63 01 FB O0006A 
50 AS 3C 00060 
28 6440 b0 90071 
5 FE A2 3C 00075 
50 04 C¢ 00079 
OE 13 0007C 
01 oD 9007 
09 DD 0008 
04 aC DD 9008 
0000Ov CF 03 FB 0008 
07 #11 908A 
0000" CF 9F 0008C 
63 01 FB 90090 
0000" CF 9F 00093 
63 01 FB 90097 
oi DD O009A 
A DD 0009C¢ 
04 AC DD 0009 
0000v CF 9 FB OOOA1 
o000v CF F Pe OOOAS 
£f 81 6 OOOAD 
04 00080 


Routine Base: 


177 bytes, 


: Routine Size: 


2 
18-se0-1984 01:48:59 


SCODES + 0858 


nN 


3$: 
4$: 


5$: 


PM 


OPCOM.SRC 


#346471945 
BUFFER, NODE_DESCR+4 
URCE’ BUF 


#1, PUT STRING ASCIC 
PRT“POLWTER TABERON PKTPTR 
NEPRIPTR), Bo52 

ONTROL1, CONTROL 
CONTROL2, CONTROL 


#10, (PKIPTR), = 
SP nay Pm? s - 


vauW 
Oo 
~~ 


STATUS, 5 
#1, STRIP_BLANKS_STRING 


#1, PUT_STRING_ASCID 
SPACES BUF 
#1, PUT STRING ASCIC 
PKT_INDEX_TAB+T6, RO 
PKT-POINTER_TABLROJ, PKTPTR 
2 (PKIPTR). RO 


"1 

"9 

RECORD PIR 

8, PUT_PKT_STRING 


NONE _BUF 
#1, PUT_STRING_ASCIC 
COLONS 

a. PUT_STRING_ASCIC 


#10 

RECORD PTR 

#3, PUT _PKT_STRING 
#1, PUT_NEWLINE 
#i, RO 


AX=-11 Ol igsete V4.0=742 
SECURITY.B32; 1 


Pe Se Se Se Re Se Se Oe Se Se Se Be Oe Be Oe He He Be Be Be Be Se Se Be Se Se Be Se Be Se Be Be Se Be Be Be Se Se Se Se Se Be Se Be Se Se 


OF 
ve 


H 2 
OPCSSECURITY 16-Sep-1984 01:48: AX=11 Bliss-32 v4.0-742 Page 68 
VOs=000 1e=8ep-1984 12:50:55 LOBcO. SRCSSECURI TY 85201 296 18) 


5 1308 40 1 ROUTINE PUT_PKT_STATUS(RECORD_PTR) = : 
3; 19 41 1 3 
; 1960 tg 1 !e4 3 
; 1303 $7 ! FUNCTIONAL DESCRIPTION: : 
3 1968 45 1! This routine gece the message associated with the status longword and : 
3: 19646 rk 1! formats a status message Line. ; 
3: 1965 ae 3 
: 1306 rh 1 ! INPUT: F 
; 196 49 1! RECORD_PTR : The security alarm record address. : 
; 1968 _ ee 3 
; 1392 2} 1 ! IMPLICIT INPUT: : 
; 1970 § 1! NONE. 3 
; 1971 > SE ; 
; 1376 54 1 ! OUTPUT: 5 
3; 197 55 1! NONE. | 3 
3 1974 2$ . | 3 
; 1975 57 1! IMPLICT OUTPUT: | ; 
: 1976 $28 1} Formatted message Line in the alarm buffer. . 
3; 1977 59 1! H 
; 1978 260 1 ! SIDE EFFECTS: 3 
3; 1979 261 1! NONE. 3 
; 1980 $06 1! F 
; 1981 2635 1 ! ROUTINE VALUE: : 
3; 1982 264 1! SS$_NORMAL or a SGETMSG system service error. 3 
; 1983 $$02 1 t-- 3 
3: 1984 266 (1 3 
; 1985 3267 2 BEGIN ! Start of PUT_PKT_STATUS 3 
; 1986 3268 2 3 
3: 1987 $599 § MAP 3 
: 1988 ; 70 RECORD_PTR : REF S$BBLOCK; 3 
; 1989 271 : 
3; 1990 $6 BIND 3 
3; 1991 27 STATUS_BUF = UPLIT(BYTE(ZASCIC * Status: *))s 3 
; 1936 274 3 
3; 199 275 LOCAL 3 
: 1994 3276 PKTPTR : REF 1g OCK, 3 
3; 1995 3277 BUF F : VECTORE256,BYTE], : 
> 1996 3278 BUFF_DESCR : $BBLOCKCDSC$C_S_BLNJ ; 
3 1997 3279 PRESET(CDSC$W_LENGTH] = 256 3 
; 1998 3280 2 DSC$B-DTYPE] = DSC$K_DTYPE_T, : 
3; 1999 3281 § DSC$B_CLASS] = DSCSK_CLASS_D, j 
; 2000 oes DSCSA_POINTER) = BUFFY, $ 
; 2001 $3 STATUS : LONG; 3 
; 200 84 ; 
; 200 285 : : : 
3 2004 286 !' Move the Label field into the alarm buffer and form a pointer to the status 3 
3 $002 ser lLongword packet. : 
3 sit 289 PUT_STRING_ASCIC(STATUS_BUF); é 
3 sie 290 PKTPTR = .PKT_POINTER_TABL.PKT_INDEX_TABLNSASK_PKTTYP_STATUS~1]]; : 
r 2010 344 Get the message text and move it into the message buffer. : 
A 2012 P $294 STATUS = SGETMSG(MSGID = .PKTPTRENSASL_PKT_STATUS], é 
; 201 P 3295 MSGLEN = BUFF_DESCR, 

3 2014 P 3296 BUFADR = BUFF-DESCR, 


2 
«> ana 16- =300 138? Orie +29 AX=-11 1 Liss-32 ¥4.0-742 Pose ft OF 


14-Sep-1984 OPCOM.SRC SECURI TY.B32;1 v¢ 
: 2015 97 FLAGS = 15); 
: O18 98 IF NOT .STATUS THEN RETURN . STATUS: 
3 O17 99 WHILE, .BUFF_DESCR DSC$W_LENGTH] GTRU DATA_LINE_SIZE DO | 
: 2019 01 PUT_STRING(DATA_LINE SIZE. -BUFF _DESCREDSCSA _POINTER)); 
; 2020 0¢ B FF _DESCREDSC$0_LENGTH = ,BUFFDESCR DsC$u “LENGTH] = DATA_LINE SIZE; 
: 2021 0 BUFF-DESCRCDSCSA_POINTER] = .BUFF_DESCRLDSCSA “ POINTER] + DATA. LINE_SIZE; 
; 9 é 04 PUT NEWLINE (1); 
3 9 4 06 pur STRING( BUFF DESCRCDSCS$W_LENGTH], .BUFF_DESCRCDSC$A_POINTER)); 
; 2036 ; 08 RETORN S$ E NORMAL; 
; 20 09 1 END; ! End of PUT_PKT_STATUS 


.PSECT $PLITS,NOWRT,NOEXE,2 
09 09 3A 73 75 74 61 74 53 09 OA 00588 P.ACP: .ASCII <10><9>\Status:\<9><9> ; 
STATUS _BUF = P.ACP 


.PSECT $CODE$,NOWRT,2 | 
0000 00000 PUT_PKT_STATUS: 
WORD 


4 Save not 3 
5E FEFC CE 9E 00002 MOVAB 59004SP) : 
02060100 8F DD 00007 PUSHL #3447219 : 3282. 
04 AE 08 AE 9E 0000D MOVAB BUFF. BUFF _DESCR+4 : 
0000" CF 9F 00012 PUSHAB STATUS BUF : 3289. 
0000v CF 01 FB 00016 CALLS #1, PUT STRING ASCIC : 
50 0000" CF 3¢ 0001B MOVZWL PKT_INDEX TAB+36, : 3290. 
50 0000'CF40 00 00020 MOVL PKT “POINTER. TABEROT, PKTPTR : 
7E OF 7D 00026 MOVO #157 : 3297 
08 AE 9F 00029 PUSHAB BUFF _DESCR ; | 
OC AE 9F 0002C PUSHAB BUFF DESCR : 
60 DD 900¢F PUSHL (PK : 
000000006 00 05 FB 00031 CALLS as. TS SSGETMSG : 
35 50 €9 00038 BLBC STATUS, : 3298. 
37 6— 61 00038 1$: CMPW SuFF _DESCR, #55 : 3299 
1A 1B OO03E BLEQU ; : 
04 Ag DD 0004 PUSHL BUFF. DESCR+4 : 3301 
37 OD 004 PUSHL 5 : 
0000v CF : f 04 CALL ae PUT STRING. : | 
6E A 00044 SUBW §. BUFF : 330 
04 AE 7 CO 00040 ADDL #55, BUFF ~DESCR#4 : 3303. 
01 DD 00051 PUSHL @# : 3304. 
o000v CF 01 FB 00053 CALLS #1, PUT_NEWLINE 3 
E1 11 00058 BRB 1$° ; 3299 
04 AE po 005A 23: PUSHL  BUFF_DESCR+4 : 3306. 
7E 04 AE C 0005p MOVZWL Bratt “DESCR, -(SP) : 
0000v CF y FB 9061 CALLS “STRING : 
E 04 066 CLRL : 3307) 
0000v cr ot FB 006 CALLS #1, ut NEULINE F 
0 1 p 9060 MOVL Ae RO ; 
4 00070 3$: RET ; 


POS eee FO He HS HS Oe Oe Ee HS HS He HS HS HS HS OS FS OS HS Oe HS HS He He FHSS He EHS OS FTES TE FS FESS FS FSS FSS SS HSCS SCR FCS HSE*S*S*SO CHES 
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bse 
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1 
1 


SCODES + 090C 


Routine Base: 


7. 
" 
v 
ee 

~ 
2 
~ 
— 
_- 


; Routine Size: 


Cor Se CURITY 


K 2 
OPCSSECURITY 16-Sep-1984 01:48:5 AX-11 Bliss-32 V4.0-742 Page 71) 
vOu=000 1e=8eb-1984 15:50:55 LOPCOM.SRCSSECORITY B52—1 9°19) | 
$ . 3 19 } ROUTINE PUT_PRT_PARENTPID(RECORD_PTR) = 
: 2031 1g 1 it | 
; 20 5 17 : FUNCTIONAL DESCRIPTION: 
$ 5 tis ee This routine formats a secernty alarm message Line from the 
3 8 5 ! ! } first EPID packet in the security auditing record. 
; 20 1 } ! INPUT: 
: O38 i : RECORD_PTR : The security alarm record address. 
; 2040 1 1 ¢ IMPLICIT INPUT: | 
: 2041 ; 1! NONE. | 
; sone 3 .% 
; 204 304 1 | OUTPUT: | 
3 2044 325 1! NONE. 
; 2045 326 1! 
3 soee 4 1 ! IMPLICT OUTPUT: 
; 2067 81! Formatted message Line in the alarm buffer. 
: 2048 329 1! 
: 2049 330 1 ! SIDE EFFECTS: | 
; 2050 331 1! NONE . | 
3 soe) 3336 1! 
: 036 33 1 ! ROUTINE VALUE: 
; 205 334 1! SS$_NORMAL or a $FAO system service error. 
3; 2054 335 1 !=- 
3; 2055 336 (1 
; 2056 337 BEGIN ! Start of PUT_PKT_PARENTPID 
3; 2057 3338 
3 $028 3339 MAP 
3; 2059 $3e8 RECORD_PTR : REF S$BBLOCK; 
3; 2060 341 
3; 2061 3306 BIND 
3 44 334 § PID_BUF = UPLIT(BYTE(ZASCIC ' Parent PID: at 
3 206 3344 CONTROL = ZASCID '!XL'; 
: 2064 3345 2 
; 2065 3346 5 LOCAL 
3; 2066 3347 PKTPTR : REF S$BBLOCK, 
3; 2067 $308 2 LENGTH : LONG, 
3 $oe8 349 STATUS : LONG; 
3: 2069 350 
3 spre 351 ! : 
:; 2071 326 ! Move the Label field into the alarm buffer and form a pointer to the process 
3 O76 $2 ! id packet. 
3; 207 54 ! 
3; 2074 355 PUT_STRING_ASCIC(PID_ BUF): 
; O73 356 PKTPTR = .PKT_POINTER_TABL .PKT_INDEX_TABLNSASK_PKTTYP_EPID-1)); 
; Orn $25 : Convert and move the process id field into the message buffer. 
3; 2079 360 STATUS = SFAO(CONTROL, LENGTH, ALARM_DESCR, .PKTPTRCNSASL_PKT_EPID)); 
> 2080 361 2 IF NOT .STATUS THEN RETURN . ; 
3; 2081 306 ALARM_DESCRCDSC$W_LENGTH] = .ALARM DESCRCDSC$W_LENGTH] - .LENGTH<0,16,0>; : 
; 08¢ 36 ALARM~DESCREDSCSA_POINTER] = .ALARM_DESCRCDSC$A_POINTER] + .LENGTH<0,16,0>; 
; 208 4 PUT_NEWLINE (0); 
; 2084 65 RETORN SS$_NORMAL ; 
> 2085 66 1 END; ! End of PUT_PKT_PARENTPID 


2 
OPCSSECURITY 16-Sep-1984 01:48: AX=11 Bliss=32 V4.0-74 Page 7 
vO4=000 1e-8ep-1984 12:50:55 EOBCOM. SRCSSECURY TY 85201 290 455 


-PSECT S$PLITS,NOWRT,NOEXE,2 


0593 .BLKB 1 
09 3A 464 469 50 20 76 6E 65 72 61 50 09 OD 0594 P.ACQ: -ASCII <13><9>\Parent PID:\<9> : 
00 4¢ 58 21 0504 P.ACS: ASCII Asx JXL\< <0> ; 
010600 3 00548 P.ACR: <LONG 4723 ; 
00000000" 005ac ONES. pe ACS F 
1D_BUF= P.ACQ 
CONTROL= P-ACR 


-PSECT $CODES,NOWRT,2 
0004 00000 PUT_PKT ht ih + 


WOR S R2 . 3310. 
52 0000" CF 3 0000 MOVAB ALARM DESCR, R2 : 
SE 04 0000 SUBL2 #4, SP ; 
0000' CF SF OOO0A PUSHAB PID _BUF ; 3355 | 
0000v CF 01 FB 00005 CALLS “PUT STRING ASCIC : 
50 3¢ a2 3¢ 0001 MOVZWL okt TAB+32, : 3356 
50 44 A240 DO 00017 MOVL PKT Sita BTBTROT PKTPTR : 
60 DD O000IC PUSHL  (PKTPTR) ; 3360. 
52 DD OOO1E PUSHL R2 : 
08 AE OF 90020 PUSHAB LENGTH : 
0000' CF 9F 000 PUSHAB CONTROL : 
000000006 00 04 FB 00027 CALLS #4, SYSS$FAO : 
14 50 €9 0002E BLBC STATUS, 1$ ; 3361 
62 6E A2 00031 SUBW2 LENGTH, ALARM_DESCR : 336¢ 
50 of 3C 00034 MOVZWL LEN ; 336 
04 = A2 50 CO 00037 ADDL2 RO ALARM_DESCR+4 : 
7E 04 00038 CLRL. 0-_ = ( §P) > 3364 
0000v CF 01 FB 00030 CALLS #1, PUT_NEWLINE : 
50 01 00 00042 MOVL #1, RO : 3365 
04 00045 1$ RET : 3366 
; Routine Size: 70 bytes, Routine Base: $CODE$ + 097D | 


mM 2 | 

OPCSSECURITY 16-Sep-1984 01:48:5 AX-11 Bliss-32 V4.0-742 Page 73 

yOs~ 000 1e28eb713ee 93:80:85 — LOBcom. BacdgecoR| ti -Bsee1 (20). 
: ed or } ROUTi +E PUT_PKT_PARENTUN(RECORD_PTR) : NOVALUE = ; 
: 2089 e 1 !4¢ : 
: 3090 20 1 } FUNCTIONAL DESCRIPTION: | ; 
: O36 if 1 This routine formats a security alarm message Line from the 
: P oF : } first USERNAM packet in the security auditing record. : 
: 2095 75. 1 / INPUT: | : 
: 94 6 : RECORD_PTR : The security alarm record address. : 
: 2098 78 1! IMPLICIT INPUT: ; 
; 2099 _ee NONE. $ 
; 2100 80 1! | 3 
; 2101 381 1 ! OUTPUT: ; 
Hy $108 $66 1! NONE. 3 
3 210 ea : 
3: 2104 384 1 ! IMPLICT OUTPUT: 3 
3; 2105 $352 1! Formatted message Line in the alarm buffer. 3 
; 2106 386 1! 3 
: 2107 3387 1 ! SIDE EFFECTS: H 
3; 2108 $e06 1! NONE. : 
: 2109 389 1! F 
3; 2110 $308 1 ! ROUTINE VALUE: : 
3; 2111 391 1! NONE. : 
3 gii¢ 3396 1 !<- | 3 
3; 211 3393 1 3 
> 2114 3394 2 BEGIN ! Start of PUT_PKT_PARENTUN | ; 
: 2115 3395 2 | : 
3 $118 3396 2 MAP 3 
3 2117 3397 2 RECORD_PTR : REF S$BBLOCK; : 
: 2118 3398 2 3 
3 2119 3399 BIND 3 
: sige 4's} NAME _BUF = UPLIT(BYTE(ZASCIC ' Parent U.N.: ")); : 
; 2122 3402 2 PUT_STRING ASCIC(NAME BUF); | ; 
3 2123 3403 2 PUT PKT_STRING(.RECORD_PTR, NSASK_PKTTYP_USERNAM, 1); ; 
3 2124 3404 PUT_NEWLINE (0); 3 
3 2125 3405 1 END; ! End of PUT_PKT_PARENTUN | ; 

-PSECT $PLITS,NOWRT,NOEXE,2 

09 3A 2— GE 2—€ 55 20 74 6E 65 72 61 50 09 OE O05B0 P.ACT: .ASCII <14><9>\Parent U.N. :\<9> : | 

NAME _BUF = P.ACT 

-PSECT S$CODES,NOWRT,2 | 

0000 00000 PUT_PKT_PARENTUN: ; | 

WO Save nothing > 3367 | 

0000" CF 9F 00 0° PUSHAB NAME_BU 3 3402 | 

0000v CF 1 FB CALLS #i, PUT_STRING_ASCIC ; 

1 OO 0B PUSHL #1 : 3403. 

A DD 0000D PUSHL #10 : | 


OPCSSECURITY 
v0s=000 


; Routine Size: 31 bytes, 


eee 


QOOOV CF 
0000v CF 


Routine Base: 


omon"eo 


SCODES + 09C3 


ne 
sd ni PRI STRING 


orwo 


; 3405. 


| 


LL - —) 


8B 3 
OPCSSECURITY 16-Sep-1984 01:48:5 AX-11 Bliss-32 42 Page 75. 
v04 ate ae: 39 OPCOM. SRCISECU 231 9° 24) | 


: 3127 406 1 ROUTINE PUT PKT VOLUIC(RECORD_PTR) = | 

> 2129 408 1 !+4 | 

; : : rk ts : FUNCTIONAL DESCRIPTION: 

; 21 ¢ 411 1! This routine formats a pete alarm message Line from the | 

: ! tig } } first UIC packet in the security auditing record. 

: A 5 414 1 | INPUT: | 

: $1 $ 112 ! RECORD_PTR : The security alarm record address. 

: A 8 avy IMPLICIT INPUT: 

: 2140 419 1 ; | 

3 2141 420 1 ! OUTPUT: 

3 $16 3421 1! NONE. 

3 sie $ ¢ 1! 

3: 2144 42 1 ! IMPLICT OUTPUT: 

3 sie2 $05¢ : Formatted message Line in the alarm buffer. 

el Se | ve eagte 

> 2149 3428 1 | ; 

: 2150 3429 1 ! ROUTINE VALUE: 

3 $125 sees ! SS$_NORMAL or a $FAO system service error. | 

: 2153 3432 1 | 

3 Size th ; BEGIN ! Start of PUT_PKT_VOLUIC 

: 2156 3435 2 MAP 

3 $127 $039 § RECORD_PTR : REF $BBLOCK; 

> 2159 3438 2 BIND 00 
3; 2160 3439 2 VOLUIC_BUF = UPLIT(BYTE(ZASCIC ' Vol UIC: a) 

: $163 sc¢9 § CONTROL = ZASCID '!21'; 68 
: 163 $442 2 LOCAL | 00 
3 2164 344 2 PKTPTR : REF $BBLOCK, 00 
: 2165 3444 2 STATUS : LONG, | 00 
: $196 re ¢ LENGTH : LONG; ps 
> 2168 3447 2! 

3 2169 3448 2 ! Move the label field into the alarm buffer and form a pointer to the 

: $170 ne 3 volume uic packet. 

: g17¢ $451 PUT_STRING_ASCIC(VOLUIC_BUF); 

; git? 13g 2 PKTPTR = .PKT_POINTER_TABL.PKT_INDEX_TABLNSASK_PKTTYP_UIC-1)); 

: 3175 3054 Convert and move the volume uic field into the message buffer. 

: 3177 436 STATUS = SFAO(CONTROL, LENGTH, ALARM_DESCR, .PKTPTRCNSASL_PKT_UIC)); 

> 2178 45 IF NOT .STATUS THEN RETURN .STATUS; 

; 2179 458 ALARM_DESCRCDSCS$W_LENGTH] = .ALARM_DESCRCDSC$W_LENGTH] = .LENGTH<0,16,0>; 

> 2180 459 2 ALARM~DESCREDSCSA_POINTER] = .ALARA_DESCRCDSCSA_POINTER] + .LENGTH<O,16,0>; 

: 2181 460 PUT NEWLINE (0); 

3 2182 461 RETORN SS$_NORMAL ; 

: 2183 462 1 END; ! End of PUT_PKT_VOLUIC 


3 
OPCSSECURITY 1b-sep-19 4 01:48:5 AX-11 Bliss-32 V4.0-742 Page 76 
vida tty 12-88-1938 3 8 39 LOPCOM. SRCISECURITY 83241 (21) 
-PSECT $PLITS,NOWRT,NOEXE,2 
O58F -BLKB 1 
09 3A 43 49 55 20 6C 6F 56 O09 OA a08¢0 P.ACU: ty sreoete vet UIC:\<9> : 
00 49 62 21 a05c¢ P.ACW: .ASCII be 4 : 
010E0003 00500 P.ACV: .LONG 17694723 ; 
00000000 00504 -ADDRESS P.ACW : 
VOLUIC_BUF= P.ACU 
CONTROC= P.ACV 
-PSECT $CODE$,NOWRT,2 
0004 00000 PUT_PKT_VOLUIC: 
-WORD Save R2 : 3406 
52 0000° CF Ds 00002 one ALARM_DESCR, R2 3 
5E 04 C2 00007 SUBL a4, j 
0000" CF 9F OOOOA PUSHAB voLule 3 3451) 
0000v CF 01 FB B00 CALLS pure UF RING ASCIC 3 
50 32 A2 3C 0001 MOVZWL okt INDEX_TAB+22, RO : 3452. 
50 44 A240 DO 00017 MOVL PKT TOOENTER. TABLROJ, PKTPTR : 
60 DD 0001C PUSHL (PK TPTR : 3456) 
52 DD OOO1E PUSHL R2 ; 
AE 9F 00020 PUSHAB LENGTH : 
0000' CF 9F 00023 PUSHAB CONTROL : 
000000006 00 04 FB 00027 CALLS #4, SYSS$FAO 5 
14 50 €9 O00eF BLBC STATUS, 1$ 3 3457 
a 62 6— A2 00031 SUBW2 LENGTH, ALARM_DESCR : 3458 
+ 50 6E 3C 00034 MOVZWL LENGTH, R 3 3459 
ie 04 A2 50 CO 00037 DDL2 RO ALARM_ DESCR+4 3 
7E 04 00038 CLRL. © = (§P : 3460 
=e 0000v CF 01 FB 00030 CALLS #1, PUT_NEWLINE : 
50 01 pO 00042 MOVL #1. RO ; 3461 
04 00045 1$ RET : 3462 
; Routine Size: 70 bytes, Routine Base: S$CODE$ + 09E2 


, 3 
egg VerSep-19pe 12:50:35 EOPcOM.SRCSS 


“32 V4.0-74 Pace 77| 
ecaRitY Beoet mr 22) 


PUT STRING ASCICCIMGNAM BUF); 
PKTPTR KT_POINTER_TABL. PKT_INDEX_TABLNSASK_PKTTYP_IMGNAM-1]); 
IF (, PKTPTRENSASW. PKT “SIZEI - RSASK_PKTHDR_LENGTH) GTRU 0 


HEN 
oe US PKT_STRING(.RECORD_PTR, NSASK_PKTTYP_IMGNAM, 1) 


PuT sratne ~ASCIC (NONE _BUF ) ; 
ie NEWLINE (0 


fole jel ele ela) oj oj] 
DONO UES WO 


! End of PUT_PKT_IMGNAM 


-PSECT SPLITS,NOWRT ,NOEXE ,2 | 
09 09 3A 65 67 61 6D 49 09 09 O05DB P.ACX: .ASCII <9><9>\Image:\<9><9> : | 
IMGNAM_BUF = P.ACK | 


: 2185 463 1 ROUTINE PUT_PKT_IMGNAM<PECORD_PTR) : NOVALUE = : 
: i8 t83 i '+¢ 
: 9188 466 1 | FUNCTIONAL DESCRIPTION: : 
> 2190 468 1! This routine formats a security alarm message line from the ; 
; 13) : ; ’ first IMGNAM packet in the security auditing record. : 
: $198 471 1 1 INPUT: | 
: 1% ff ! RECORD_PTR : The security alarm record address. | : 
; 196 474 1) IMPLICIT INPUT: | : 
: $198 a | ae | 
: 2199 477 1; ourPUT: | : 
PPS | eee ey 
: 0¢ 480 1 ' IMPLICT OUTPUT: : 
; sor rt : Formatted message line in the alarm buffer. | ; 
: 2205 483 1 | SIDE EFFECTS: : 
: $509 7 oe 
: 2208 486 1 | ROUTINE VALUE: ; 
; 2209 487 1} ONE . | 
Zot es i | 
; 312 3490 g BEGIN ! Start of PUT_PKT_IMGNAM | 3 
; 2314 35 5 MAP | : 
> 2215 493 2 RECORD_PTR : REF $BBLOCK; | : 
: $519 3298 5 BIND 
: 2218 3496 ‘ IMGNAM_BUF = UPLIT(BYTE(ZASCIC ' Image: ")); | ; 
; $530 3296 2 LOCAL : 
; e221 3499 PRIPTR : REF SBBLOCK; | ; 
3 2298 2 | : 
: 2224 3 
3 2225 é F 
3; 2226 TH 3 
: 2227 ; | : 
; 208 ; 
: 22350 3 
; 2231 1 | : 


wr Ge 


3 
8 th 1§- Sep-1984 : AX-11 Bliss-32 V4.0-742 
14- ~8ep- 1984 93: $8:20 OPCOM. SRCISECURITY .B32¢1 
-PSECT SCODES,NOWRT,2 
0000 00000 PUT_PKT_IMGNAM: 
«WORD Save ine 
0000' ct 9F 00002 PUSHAB {RENN M_BU 
0000v CF 1 FB 00006 CALLS PuT STRING. ASCIC 
0 0000" CF 3¢ 08 MOVZWL ot _IND 
0000'CF40 R° 1 MOVL PKT SPOINTER. TABCROJ, PKTPTR 
0 FE AO 16 MOVZWL oe (PRIP RO 
50 04 (C2 OOO1A SUBL2 #4 RO 
OE 1 0010 BEQL 
DOD Oo PUSHL 4 
1 DD 00021 PUSHL 
04 AC DD 00023 PUSHL in 
O000vV CF 03 FB 00026 CALLS PUT PRI _STRING 
09 11 00028 BRB 
0000" CF 9F 0002D 1$ PUSHAB 
0000v CF 91 FB 00031 CALLS “ful _STRING_ASCIC 
E D4 00036 2$: CLRL 
O000v CF 01 FB 00038 CALLS n, put NEWLINE 
04 00030 RET 


62 bytes, 


: Routine Size: Routine Base: S$CODES + 0A28 


Pope, 78 


BeBe Se Se Fe Se Se Se Se Be Ge Se Se Se Be Ge Be Se 


(22) | 


16 3 1984 0 
= e = 
4 : 1 


OPCSSECURITY 
v0s-000 14-Sep-1984 


005E2 -BLKB 
O05E4 P.ACY: -ASCII 
F ILNAM_BUF = 


09 09 3A 65 6C 69 46 09 08 


-PSECT 


0000" CF 9F 00002 PUSHAB 
0000v CF oi FB 000 CALLS 
1 DD 00008 PUSHL 


1:48: AX-11 Bliss-32 v4 
3:68:20 OPCOM.SRCJSECURIT 


: i 19 ! ROUTINE PUT_PKT_FILNAM(RECORD_PTR) : NOVALUE = 

; 5 \¢ 1 t+4 

; § a7 : FUNCTIONAL DESCRIPTION: 

3 8 518 1! This routine formats a security alarm message Line from the 

; i 218 : first FILNAM packet in the security auditing record. 

A $24 518 1 ! INPUT: 

: stg 21% : RECORD_PTR : The security alarm record address. 

; 344 521. 1°! IMPLICIT INPUT: 

; 45 5 ¢ 1! NONE. 

3; 2246 5 1! 

: 2247 524 1 ! OUTPUT: 

; 2248 525 1! NONE. 

3 2249 3526 1! 

: 2250 32 7 1°! IMPLICT OUTPUT: 

3 $523 Hy : : Formatted message Line in the alarm buffer. 

: $526 32% 1 ! SIDE EFFECTS: 

3 SS 3531 1! NONE. 

3; 2255 3552 1! 

3; 2256 3533 1 ! ROUTINE VALUE: 

; 2257 3534 1! NONE . 

; 2258 3535 1 !e- 

: 5560 3839 2 BEGIN , pur 

: ! Start of PUT_PKT_FILNAM 

3; 2261 3538 Nie kote 

5 $506 3539 MAP 

3; 226 3540 RECORD_PTR : REF S$BBLOCK; 

3; 2264 3541 

3; 2265 $266 2 BIND 

3: 2266 354 FILNAM_BUF = UPLIT(BYTE(ZASCIC ° File: *))3 

3; 2267 3544 

: 2268 3545 PUT_STRING_ASCIC(FILNAM_ BUF); 

: 2269 3546 2 PUT_PKT _STRING(.RECORD_PTR, NSASK_PKTTYP_FILNAM, 1); 

: 2270 3547 2 PUT_NEWCINE(O); 

; 2271 3548 1 END? ! End of PUT_PKT_FILNAM 
-PSECT SPLITS,NOWRT,NOEXE,2 


2 
<B><9>\F ile: \<9><9> 
P.ACY 


SCODES,NOWRT ,2 


0000 00000 PUT_PKT_FILNAM: 


Save nothing 
set BUF 
Ag PUT_STRING_ASCIC 


Page 79, 


(23). 
| 


Bete Se Se Se Se Se Se Se Se Se Se Se SESH Se Se Se ae SH Se Se Se Se Se Se Se ee Se Se Se Se Se Se Se Sees Se Seeee FSH e Se Se eens 


8 3 i 


; Routine Size: 


31 bytes, 


0000v CF 
0000v CF 


Routine Base: 


onmron"o”7o 
£orwoo 


SCODES + 0A66 


RECORD 


-( 
#1, 


AX=11 “32 V6.0-742 
OPCOM. ERCTSECORY TY B52-1 


PUT. PRT STRING 


Pp 
PUT _NEWL INE 


H 3 
OPCSSECURITY 16-Sep-1984 01:48:5 Ax-11 8 32 V4.0-742 
9045000 1e-8ep-19 4 0:98:28 LOPcOM.§ CURIT 


Aigee 2 V4. 
RCJSECURITY.832;1 


I? 4 ROUTINE PUT_PKT_FACMOD(RECORD_PTR) : NOVALUE = 
75 14+ 
f ! FUNCTIONAL DESCRIPTION: 
78 5 This routine formats a security alarm message Line from the 
ie 22 first FACMOD packet in the security auditing record. 
81 32 INPUT: 
Bg 22 RECORD_PTR : The security alarm record address. 
26 IMPLICIT INPUT: 
6 NONE. 
56 
56 OUTPUT: 
56 NONE . 
56 


IMPLICT OUTPUT: : 
Formatted message Line in the alarm buffer. 


SIDE EFFECTS: 
NONE. 


BLISSEANLESSLSRFATSS 


Mrorororofrororerrernr 


ROUTINE VALUE: 
NONE . 
$60 
BEGIN ! Start of PUT_PKT_FACMOD 
0¢ LITERAL 
30 NUM_FACMOD_BITS = 5; 


MAP 
RECORD_PTR : REF $BBLOCK; 


Sssr 


DOO WO OOH W090 W009 0909 09 SI NIN NIN SI NNN NO OOO 


PUT STRING ,ASCIC(F ACMOD BUF ) 

PKTPTR = .PKT POINTER TABL.PKT_ INDEX TABCNSASK_PKTTYP_FACMOD-1]); 
PUT_KEYWORDS(RUM_FACMOD BITS, PKTPTRENSASL_PKT-FACMOD], KEYWORD_VEC); 
STRIP_BLANKS_ TRATL(ALARR_DESCR); 
PUT NEWLINE (0) ; 


oO 
Sse SFSRAS LSSSENSALAN Sse NOUS WN (OO ONOAUE WN" OOONAUE WN O” 


=RIPIPIPIPIPIPIPIPININIPIPIPIPIPIPYIPDPYPIPINPPPININIAY at st st st st st st st tt tt tt 


Be Se Be Be Oe Be Be Se Se Se Be Be Be Be Se Se Se Se Se Be Se He Se Se Oe Se we Se Se Be Se Be Se Be Se Oe Ge Oe Se Se Se Oe Oe Se oe Se Se Os Se OHS Be Se ee ese 


RIPQPSPIPINININPNYDINIPIPDNIAPINPYPINPIPININPOPIPINPIPIPINIPNPININIPOPNONONY 


f= a * a1 ot © ak Sab al ah Ab Ab Ab Ab Ab Ab Ab db Ab db Ab ib cb ab ab ab ab Ab Ah ah Ah Ah ah ah ah ah ab al ahaha) 


S& 
AAAAA AWA AAA A AAA AAA AAA AAA AAAI AIA AAI 


0 

M4 BIND 

309 FACMOD_BUF = UPLIT(BYTE(ZASCIC ' Mode: ")); 
1 

i KEYWORD_VEC : VECTORCNUM_FACMOD_BITS) 

1 INITIAL(UPCIT(BYTE(ZASCIC "READ ')) 

14 UPLIT (BYTE CEASCIC "WRITE ')5 

15 UPLIT(BYTE(ZASCIC "EXECUTE '5), 
16 UPLIT(BYTE(ZASCIC “DELETE ')) 
UPLIT(BYTE(ZASCIC "CONTROL"))5; 
19 LOCAL 

: PKTPTR : REF $BBLOCK; 

358 

324 

& 


COCO CO 
wr 


! End of PUT_PKT_FACMOD 


Be Se Se Ge Fe Se Se Se Se Ge Se Se Se Se Se Se Fe Seas Ge Se Se Ge Se Ge Ge Se ee Ge Se Se Se Se Se Se Se ee Se Sees se Fee Sete esas 


Be 92:30:55 


| «PSECT SPLITS,NOWRT ,NOEXE,2 


3 
OPCSSECURITY ibese =742 Page 82 
woes 1a-ke B32s1 39 (24) 


P.ACZ: .ASCII 28><9>\Mode:\<9><9> : 
PLADA: ASCII <5>\READ \ ; 
P.ADB: ASCH <6>\WRITE \ ; 
P.ADC: ASCH ¢8>\EXECUTE \ ; 


B 
: «ASCII <7>\DELETE \ 3 
P.ADE: .ASCII <7>\CONTROL\ 3 


~-PSECT SOWNS,NOEXE,2 


00000000" 00000000" 00000000' 00000000' 00000000° OOBA8 KEYWORD_VEC: 
«ADDRESS P.ADA, P.ADB, P.ADC, P.ADD, P.ADE ; 


F ACMOD_BUF = P.ACZ 


09 09 3A 65 64 6F 4D 09 08 


om~n wr 


SwAASRVADOS 
o 
= 
x 


20 45 54 55 43 45 58 45 08 
20 3 54 45 4€ 45 44 07 


-PSECT SCODES,NOWRT,2 
0000 00000 PUT_PKT_FACMOD: 
.WOR Save nothing ; 3549 


ORD 
PUSHAB FACMOD_BUF 
CALLS #1, PUT STRING_ASCIC 
MOVZWL PKT_INDEX TAB+2, R 
MO PKT~POINTER_TABCROJ, PKTPTR 
KEY@ORD_VEC 


0000" 
0000Vv 


Mind 
oon 


CF 


ooo 
ooo 
ooo 
ooo 

ses « 


0000v CF 
0000v CF 
0000v CF 


4 

CALLS #3, PUT_KEYWORDS 
ALARM_DESC 

CALLS #1 , STRIP_BLANKS, TRAIL 


CALLS #1, PUT_NEWLINE 


0000° 


SONOMSCOUN SOOO 

$M "WMNONOnon 
OmnonOMNOVOIW"SO 
Fossa woo"oorwn 
SoOoooooooooo°oo 
fale lololololololololololq) 
COOoooooooceooooo 
Sete Se Se Se Se Be Se Se Se Se Se oe & 


CNN mmo owe 
WMONWMOSPOODOnr 
v 
Cc 
n” 
3 


; Routine Size: 52 bytes, Routine Base: S$CODE$ + OA85 


4 5 
8 * al 1ergeP= 13s Pb:g8:3o = aes ; Page 8 


ze 
oo 
“ow 
ae 
oOo, 
uM 
nw 
me 
ow 
crn 
> +] 


; 3 O06 } ROUTINE PUT_PKT_PRIVUSED(RECORD_PTR) : NOVALUE = 

: 1 6 : 1 !¢4 

$ § yt : } FUNCTIONAL DESCRIPTION: 

3 609 1! This routine formats a security alarm message Line from the 

3 5 219 : first PRIVUSED packet in the security auditing record. 

3 ois 1 ! INPUT: 

3 : a7 ! } RECORD_PTR : The security alarm record address. 

$ 0 615 1! IMPLICIT INPUT: 

; 1 $16 1! NONE. 

: ¢ 617 1! 

; 618 1 ! OUTPUT: | 
3 4 619 1! NONE. 

; 2345 620 1 | | 
3 $ 621 1 ! IMPLICT OUTPUT: 
$ rt 4 : ¢ : Formatted message Line in the alarm buffer. 

3; 2349 624 1 ! SIDE EFFECTS: 

; 2350 625 1! NONE . 

: 2351 6 $ 1! 

: $328 6 1 ! ROUTINE VALUE: 

; 235 628 1! NONE. 

> 2354 6¢9 1 i-- | 
3 S3ee 630 1 

3 2356 31 2 BEGIN ! Start of PUT_PKT_PRIVUSED 

3; 2357 O36 

; 2358 63 LITERAL 
3 2359 63 NUM_PRIVUSED_BITS = 6; 
: 36° 636 p 
; 306 637 RECORD_PTR =: REF $BBLOCK; 
P4 36 638 | 
> 2364 639 2 BIND | 
3 2365 640 2 PRIV_BUF = UPLIT(BYTE(ZASCIC * Privs Used: ")); 

Py 2366 3641 
3 $308 64 OWN 

: 2368 64 KEYWORD_VEC : VECTORCNUM_PRIVUSED BITS) | 
3: 2369 3644 2 INITIAL (UPCIT(BYTE(ZASCIC "SYSPRV ')), 

3 2370 3645 UPLIT(BYTE(ZASCIC "BYPASS ")) 
; 2371 3646 UPLIT(BYTE(ZASCIC ‘UPGRADE ')5 

; $376 647 UPLIT(BYTE(ZASCIC "DOWNGRADE '5), 
3 237 648 UPLIT(BYTE(ZASCIC "GRPPRV ')) 

> 2374 649 UPLIT(BYTE(ZASCIC "READALL*))5; 

3; 2375 650 

: 2376 651 LOCAL 
: 378 626 PKTPTR : REF S$BBLOCK; 
3 2379 654 PUT_STRING_ASCIC(PRIV_BUF); 

; 2380 655 PKTPTR = .PKT_POINTER TABL.PKT_INDEX_TABLNSASK_PKTTYP_PRIVUSED-1]); 
3 2381 636 IF .PKTPTRONSASL_PKT_PRIVUSED]-“NEQ 0 
Py 355 65 THEN | 
; 238 658 BEGIN 

3 2384 659 PUT_KEYWORDS(NUM_PRIVUSED_BITS, PKTPTRENSASL_PKT_PRIVUSED], KEYWORD_VEC); 

; 2385 3660 STRIP_BLANKS_TRATL(ALARM_DESCRS; 


K 3 | 
OPCSSECURIT -Sep- 248: ° ° .0- | Oo! 
vOu=000" : 10-380-198¢ 73:39:88 OPCOM. SRCISECURI TY 85241 Page oe v( 


: 86 661 END | 
; es oe§ § ofSE Ly stain NG_ASCIC(NONE_BUF ) 
+ 2389 664 2 PUT _NEUCIN E(0)? - a 
: 665 1 END? ! End of PUT_PKT_PRIVUSED | 
| Ps 
-PSECT $PLIT$,NOWRT,NOEXE,2 
09 3A 64 65 73 55 20 73 76 69 72 50 09 OD o0e88 P.ADF: ASCII <13><9>\Privs Used:\<9> ; 
20 $ : 53 59 53 07 $88 § P.ADG: <ASCII <7>\SYSPRV \ : 
0 53 53 41 50 59 42 7 00640 P.ADH: ASCII <7>\BYPASS \ : 
20 45 4&4 41 52 4 55 08 00648 P-ADI: ASCII <8>\UPGRADE \ : 
20 45 44 41 52 47 GE 57 GF 44 OA 00654 P.ADJ: -ASCII <10>\DOWNGRADE \ : 
20 56 52 50 50 52 47 07 00660 P.ADK: ‘ASCII <7>\GRPPRV \ : 
4C 4C 41 44 41 45 52 07 00668 P.ADL: ASCII <7>\READALL\ : 


-PSECT SOWNS,NOEXE,2 


00000000" 00000000* 00000000" 00000000° 00000000' 00000000° OOBBC KEYWORD_VEC: 
«ADDRESS P.ADG, P.ADH, P.ADI, P.ADJ, P.ADK, P.ADL ; 


PRIV_BUF = P.ADF 


-PSECT S$CODES,NOWRT,2 
0000 00000 PUT_PKT mt ad 


WORD Save nothing : 3604 
0000" CF 9F 00002 PUSHAB UF : 3654 
0000v CF 01 FB 00006 CALLS Pur eS TRING ASCIC : 
50 0000" CF 3C 0000B MOVZWL Pkt] RO > 3655 
50 0000'CF40 00 00010 MOVL ~~ PKT Satie AT aBCRON, PKTPTR : 
60 D5 00016 TSTL  (PKTPTR) + 3656) 
18 13 00018 BEQL ~=s«s1$ : | 
0000" CF 9F QOOIA PUSHAB KEYWORD _VEC : 3659 
50 DD OO01E PUSHL ; 
06 DD 000 PUSHL i. : 
0000v CF 03 FB 000 é CALLS pur ekEywoRDs ; 
0000' CF 9F 000 PUSHAB sn ESCR : 3660 | 
0000v CF 1 FB 0002B CALLS STRIP_BLANKS_TRAIL ; | 
9 11 00030 BRB : 3656 | 
0000" CF 9F 00032 1$: PUSHAB + 3663 | 
0000v CF 91 FB 000 CALLS, Tn BUT. _STRING_ASCIC ; 
E D4 00038 28: CLAL =] P) > 3664 
0000v CF 01 FB 0003D CALLS #1, PUT_NEWLINE ; 
04 00042 RET > 3665 | 


; Routine Size: 67 bytes, Routine Base: S$CODES + OABI 
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PO UMTMNOR. OAH O— CIMT MOR. DOOM MM TNO. DOO WU 

O00 ORR AAPA 606000000000 0000 0000 OOOO SoOoSOO —oa-tanae 
DSDOOO OOOO OOOO DOO OOD OOD ODO DODO DODO RRR ERR RARRARRARAARAARS 

PVE VELV ELVES VEL Y PLD EL DOLD OLD ND DD NN DD DD PD ND PD PD DD DDD DD B,D 


SO NII CII COOP ~y 
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ue 
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RMOVIVYVYVYVYVYVYVYVYVYVVYVYVYVUVYVOUVVUYVYVUVUYUUUUVUUUYU we 
AMNMNMNMNMMNNMNNNMNMMMYMMVMNMMYMMMYNVYVYNYNNNNYNW aw 
bea en Sy ey Se Se ey ey “te ey “trey Se “ty “hreny rey “hey ey ty ey “hey rey ey, “ey “tray She, ee Soe, es See <za 
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PATMNDOR-DWAO CUM TFT NOR. DHOOM MUM TMNOR. DHOOM TUM TNOR. OKO UM 
NOOO OOO SF SF AT SF SF ST TTT TANNA OOOO 
ped pd pk dd dd kd ddd ddd dd ed ed ed ee ee 
POVNET PLN DDD DD DD PD PD PD PD PD PD PD SD PDD DDD DD PD 


DOK MUM TMNOP- DOO SOS 8S2 
TMMMNMAMNMNMNAN OOO00O0 oor 
IIIT vwv 

i™ mM 


-PSECT SPLITS,NOWRT,NOEXE ,2 


<13><9>\Fields Mod:\<9> 


4D 20 73 64 6C 65 69 46 09 OD 00670 P.ADM: 


20 20 20 20 20 20 20 20 53 53 45 43 43 41 


09 3A 64 6F 


43 43 41 


20 20 20 20 20 20 20 54 4E 55 4F 

20 20 20 20 20 20 20 20 20 4D 4C 54 53 41 
20 20 20 20 20 20 20 20 20 48 43 54 41 

20 20 20 20 20 20 20 20 20 4D 4C 4F 
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20 
20 
20 
20 
53 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 


20 
20 
20 
20 
45 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 


wean 


20 
20 
20 
20 
47 
20 
20 
20 
20 
20 
20 
20 
20 
45 
20 
20 
20 
20 
20 
53 
20 
20 
20 
20 
20 
20 
20 
20 


20 
20 
20 
20 
45 
20 
20 
20 
20 
20 
4E 
20 
20 
56 
20 
20 
20 
20 
20 
42 
20 
20 
20 
20 
20 
54 
20 
20 


20 
20 
53 
20 
4C 
20 
20 
20 
59 
20 
4F 
20 
20 
49 
20 
20 
20 
48 
20 
4F 
20 
20 
20 
20 
20 
43 
41 
20 


20 
20 
45 
20 
49 
20 
20 
20 
52 
20 
49 
20 
20 
54 
20 
20 
20 
43 
20 
4A 
20 
20 
4b 
20 
20 
49 
54 
20 


20 
20 
4C 
45 
56 
20 
20 
20 
4F 
20 
54 
20 
20 
e) 
41 
20 
20 
41 
53 
54 
48 
20 
52 
20 
20 
52 
4F 
20 


20 
20 
42 
4D 
49 
45 
50 
20 
54 
20 
41 
20 
20 
41 
54 
44 
20 
54 
42 
43 
52 
20 
4F 
4D 
53 
54 
55 
20 


4D 
20 
41 
49 
52 
43 
55 
4D 
43 
4D 
52 
4D 
53 
52 
4F 
4D 
4C 
45 
4F 
43 
4F 
52 
57 
4C 
47 
53 
51 
4D 


4C 
20 
54 
54 
50 
49 
4C 
4C 
45 
4C 
49 
4C 
47 
45 
55 
43 
41 
44 
SA 
41 
57 
P) 
53 
54 
41 
45 
4C 
4C 


N 3 
16-Sep-19 
14-Sep-1 
O6CF 

OE 0600 P.ADS: 
O6DF 

OE Q0Q6E0 P.ADT: 
O6EF 

OE pore P.ADU: 

OE $965 P.ADV: 
070F 

OE 00710 P.ADW: 
0071F 

OE BRe 0 P.ADX: 
072F 

OE 00750 P.ADY: 
0073F 

OE 00740 P.ADZ: 
0074F 

OE 00750 P.AEA: 
0075F 

OE 00760 P.AEB: 
0076F 

OE 00770 P.AEC: 
0077F 

OE 00780 P.AED: 
0078F 

OE 00790 P.AEE: 
0079F 

OE O07A0 P.AEF: 
OO7AF 

OE 00780 P.AEG: 
007BF 

OE 007CO P.AEH: 
0O07CF 

OE 00700 P.AEI: 
007DF 

OE OO7EO P.AEJ: 
OO7EF 

OE OO7FO P.AEK: 
OO7FF 

OE 00800 P.AEL: 
0080F 

OE 00810 P.AEM: 
0081F 

OE 00820 P.AEN: 
0082F 

OE 00830 P.AEO: 
0083F 

OE 00840 P.AEP: 
0084F 

OE 00850 P.AEQ: 
st Fe 

OE 00860 P.AER: 
Boer 

OE 00870 P.AES: 
087F 

OE 00880 P.AET: 
0088F 


4 
984 


¢14>\BYTLM 

LH 4>\CLI 
<14>\CLITABLES 
<14>\CPUTIME 
<14>\DEFPRIVILEGES 
<14>\DEVICE 
<14>\DIALUP 
<14>\DI0OLM 
<14>\DIRECTORY 
<14>\ENQLM 
<14>\EXPIRATION 
<14>\FILLM 
<14>\FLAGS 

<14>\ INTERACTIVE 
<14>\JTQUOTA 
<14>\LGICMD 
<14>\LOCAL 
<14>\MAXDETACH 
<14>\MAXJOBS 
<14>\MAXACCTJOBS 
<14>\NETWORK 
<14>\0WNER 
<14>\PASSWORD 
<14>\PBYTLM 
<14>\PFLAGS 
<14>\P_RESTRICT 
<14>\PGFLQUOTA 
Ste \PRCL 


CP GS HF FF FF FTF FTF FF BF BA eR Ff FR BA BO FPA 8B #f @2@ # FB BA fA A FP £# 
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(26) | 


ee aa 


4 
et if: ~3op-198e 92:30:85  YOPcom. SRCTSECURY TY B5841 226) 
20 20 20 20 20 53 59 41 44 45 4D 49 52 50 OE 00890 P.AEU: .ASCII <14>\PRIMEDAYS \ ; 
20 20 20 20 20 20 59 54 49 52 4F 49 52 50 OE ie P.AEV: “ASCII <14>\PRIORITY \ : 
20 20 20 20 53 45 47 45 4 49 56 49 52 50 OE b880 P.AEW: ASCII <14>\PRIVILEGES  \ ; | 
20 20 20 45 4D 49 54 45 46 49 4C 44 57 50 OE ata P.AEX: “ASCH £14>\PWDLIFETIME \ : | 
20 20 20 20 4D 55 4D 49 4E 49 4D 44 57 50 OE 29800 P.AEY: “ASCII <14>\PWDMINIMUM \ ; | 
20 20 20 59 54 49 52 4F 49 52 50 45 55 51 OF SORED P.LAEZ: ASCII <14>\QUEPRIORITY  \ : 
20 20 20 20 20 20 20 20 45 54 4F 4D 45 52 OE dos 0 P.AFA: “ASCII <14>\REMOTE \ ; | 
20 20 20 20 20 20 20 20 53 47 41 4C 46 53 OE 00900 P. AFB: -ASCII <14>\SFLAGS \ : 
20 20 20 20 54 43 49 52 54 53 45 52 SF 53 OE 90910 PLAFC: ASCII <14>\S_RESTRICT —\ : 
20 20 20 20 20 20 4D 4c 4C 49 46 52 48 53 OE 00920 P.AFD ASCII <14>\SHRFILLM \ ; | 
20 20 20 20 20 20 20 20 20 4D 4C 45 51 54 OE 00930 P.AFE: ASCII <14>\TQELM \ : 
20 20 20 20 20 20 20 20 20 20 20 43 49 55 OF 00940 PAAFF: ASCII <14>\UIC \ ; | 
20 20 20 20 20 54 4C 55 41 46 45 44 53 57 OE 00950 P.AFG: “ASCII <14>\WSDEFAULT \ : | 
20 20 20 20 20 20 54 4E 45 54 58 45 53 57 OE 00960 P.AFH: “ASCII <14>\USEXTENT \ ; 
20 20 20 20 20 20 20 41 54 4F 55 51 53 57 OE 00970 P.AFI: ‘ASCII <14>\WSQUOTA \ : 


~PSECT SOWNS,NOEXE,2 


00090000" 00009000" 00000000" 00000000* 00000000' 00000000" 00BD4 KEYWORD_VEC: 
-ADDRESS P.ADN, mg P.ADP, i" P.ADR, : 


00000000" 00000000 00000000: 00000000 00000000: 00000000' OOBEC P.ADS, P.ADT, P.ADU, P.ADV, P.ADW, P.ADX, - : 
00000000" 00000000' 00000000" 00000000° 00000000' 00000000' 00C04 P.ADY, P.ADZ, P.AEA, P.AEB, P.AEC, P.AED, - ; 
00000000 00000000 00000000 00000000* 00000000" 00000000: o0ciC P.AEE, P.AEF, P.AEG, P.AEH, P.AEI, P.AEJ. -: 
00000000" 0 * 00000000" 00000000' 00000000" 00000000' 00¢34 P.AEK, P.AEL, P.AEM, P.AEN, P.AEO, P.AEP, - : 
90000000" 00000000' 00000000* 00000000" 00000000' 00000000' ooc4c P.AEQ, P.AER, P.AES, P.AET, P.AEU, P.AEV, - : 
* 00000000" 00000000' 00000000" 00000000" 00000000' 00c64 P.AEW, P.AEX, P.AEY, P.AEZ, P.AFA, P.AFB, - : 
00000000" 00000000* 00000000* 00000000" 00000000* 00000000' 00c7C¢c P AC, P.AFD, P.AFE, P.AFF, P.AFG, P.AFH, - : 
SYSUAF F _BUF = P.ADM 
-PSECT $CODE$,NOWRT,2 | 
0000 00000 PUT_PKT_SYSUAFF : 
«WORD Save anothing > 3666 | 
0000" CF 9F 00002 PUSHAB SYSUAFF_BUF : 3758. 
O000v CF 01 FB 00006 CALLS #1, PUT STRING ASCIC : | 
50 9000" CF 3¢ 9008 MOVZWL ext INDEX_TAB+34 : 3759 
50 000'CF40 00 0001 MOVL —PKT “POINTER. t TABL thon” PKTPTR : | 
0000" CF 9F 00016 PUSHAB 4 YQORD_VE ; 3760. 
9 DD 00014 PUSHL PKTPT ; 
DD 0001C PUSHL #48 : 


4 | 
OPCSSECURITY 1h-se -1984 01:48: AX-11 Bliss-32 V4.0-742 Page 89. 
v0 127308- 1382 9:95:28 LOPCOM. SRC SECURITY.B32; 1 ° (26), 
0000v CF 03 FB 0001 CALLS #3, PUT_KEYWORDS : 
0000' CF 9F 0 PUSHAB ALARM DESCR : 3761, 
0000v CF 1 FB CALLS #1, STRIP_BLANKS_TRAIL : 
7 D4 0002C CLRL = t 3762 
0000v CF 01 FB 000 : CALLS #1, PUT_NEWLINE : 
04 000 RET + 3763 


; Routine Size: 52 bytes, Routine Base: $CODE$S + OAFC 


dD 4 
16-Sep-1984 01:48:5 AX-11 Bliss-32 V4.0-742 Page 90. 
12780871382 95:68:28 SRCISECURITY.B32¢ 1 29° (27) 


4 
5 PUT_STRING_ASCIC(PASS_BUF); 
2 $ PKTPTR = .PKT_POINTER_TABL.PKT_INDEX_TABLNSASK_PKTTYP_PASSWORD-1]); 
232 3 Move password to message buffer through the FAO AF filter. 
537 P 3810 2 STATUS = SFAO(CQATROL, LENGTH, ALARM_DESCR, 
538 811 -PKTPTRINSASW PKT_ SIZE) - NSASK_PKTHDR_LENGTH, PKTPTRLNSAST_PKT_DATA)); 
539 A IF NOT .STATUS THEN RETURN .STATUS; 
540 81 ALARM_DESCRCDSC$U_LENGTH] = .ALARM DESCRCDSCS$W_LENGTH] - .LENGTH<0,16,0>; 
541 814 ALARM~DESCREDSCSA_POINTER] = .ALARM_DESCRCDSCS$A_POINTER] + .LENGTH<O,16,0>; 
a 815 PUT_NEWLINE (0); 
54 B16 RETORN SS$_NORMAL; 
544 81 END; ! End of PUT_PKT_PASSWORD 


P66 ; ROUTINE PUT_PKT_PASSWORD(RECORD_PTR) = 
766 1 44 

4 £9 : FUNCTIONAL DESCRIPTION: 

0 ia 3 ft This routine formats a security alarm message line from the 
ory : first PASSWORD packet in the security auditing record. 
ak 1 ! INPUT: 

5 it? : } RECORD_PTR : The security alarm record address. 
775 1°! IMPLICIT INPUT: 

50 76 1! NONE. 

504 777 (1! 

505 778 #1 =! OUTPUT: 

506 779 1! NONE . 

507 780 1! 

$208 3781 1 ! IMPLICT OUTPUT: 
509 HAL 1! Formatted message Line in the alarm buffer. 
2510 3785 1! 
2511 3784 1 ! SIDE EFFECTS: 
s2i¢ 785 1! NONE. 
251 786 1! 
2514 787 1 ! ROUTINE VALUE: 
2515 3788 1! SS$_NORMAL or a $FAO system service error. 
2516 3789 1 !-- 
2517 3790 1 
2518 3791 2 BEGIN ! Start of PUT_PKT_PASSWORD 
$232 Hae § 
520 379 MAP 
2521 3794 2 RECORD_PTR : REF $BBLOCK; 
$25¢ 3795 2 
252 3796 2 BIND 
2524 3797 2 PASS _BUF = UPLIT(BYTE(ZASCIC ° Password: “Fy, 
2525 3798 2 CONTROL = ZASCID ‘!AF'; 
2526 3799 2 
2527 3800 2 LOCAL 
2528 3801 2 PKTPTR : REF $BBLOCK, 
Th44 3802 2 STATUS : LONG, 
2530 $00 2 LENGTH : LONG; 
2531 80 § 
2532 $60 
2533 806 2 
; Hy 
80 
$ 3 
3 
5 3 
§ 3 
3 3 
5 317 


oC 


OC 


se 
1enSep-1986 92:30:35 EOPcon.SACSSECURYT¥caso¢1 Past (05) 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


OPCSSECURITY 
vOs=000 


97F -BLKB 1 
09 3A 64 72 6F 77 73 73 61 50 O09 OB 03 O P.AFJ: ASCII <11><9>\Password:\<9> : 
0 46 41 } 9 ¢ P.AFL: .ASCII \sAF\ <0 : 
019600 0990 P.AFK: .LONG 176947 : 
0000000" 00994 .ADDRESS P.AFL : 
PASS BUF= P.AFJ 
CONTROL= P.AFK 


«PSECT $CODES,NOWRT,2 
0004 00000 PUT_PKT AT ee 


RD Save R2 3 3764) 
52 0000" CF 3 000 ROVAS ALARM DESCR, R2 : 
SE 04 C2 0000 SUAL a4 see : 
0000" CF 9F OOO0A PUSHAB PA $s + 3805 | 
0000v CF 01 FB BOO CALLS PUT geting ASC IC 3 | 
50 30 A2 3C 0001 MOVZWL ext TAB+20, > 3806 | 
50 44 A240 pO 00017 MOVL PKT Sitti PABCROT. PKTPTR : | 
50 bo 0001C PUSHL PRTPTR 3 3811 
7E FE AO 3C OOO1E MOVZWL PO CPKIPTR). -(SP) : 
6E 04 C2 00022 SUBL2 #4, (SP) : 
52 DD 600 5 PUSHL R2- 3 
OC AE 9F 00027 PUSHAB LENGTH : 
0000' CF 9F OO02A PUSHAB CONTROL : 
000000006 00 0S FB b00¢8 CALLS #5, SYSS$FAO : 
14 50 €9 000 BLBC STAT 1$ 3 3812 
62 6E A2 00038 SUBW2 LENGTH, ALARM_DESCR 3 3813 
50 6— 3C 00038 MOVZWL LENGT 3 3814 
04 A2 50 CO 0003E ADDL2 RO, ALARM_DESCR+4 : 
7E D4 00042 CLRL §P) : 3815 
0000v CF 01 FB 00044 CALLS i. PUT_NEWL INE 3 
50 01 DO 00049 MOVL #1. RO : 3816 
04 0004C 1$: RET ; 3817 


; Routine Size: 77 bytes, Routine Base: $CODE$S + 0830 


4 
OPCSSECURITY 16- $ep-1984 01:4 AX-11 Bliss-32 V4 
yOG+000 14- Sep-1984 4 12: 95: 3 OPCOM. SRCISECURIT 


742 Page 92. 
3251 (28) 


; 54 Hy } ROUTINE PUT_PKT_LOGNAM(RECORD_PTR) : NOVALUE = 

; 2548 § 0 1 [4+ 

3 208 1 } FUNCTIONAL DESCRIPTION: 

; 2551 8 : i This routine formats a security alarm message Line from the 
$ 226 : 2 : first LOGNAM packet in the security auditing record. 

: 2554 826 1 | INPUT: 

3 356 4 , : RECORD_PTR : The security alarm record address. 

: 2557 9 1! IMPLICIT INPUT: 

3 88, : 01! NONE. 

; 2559 831 1! 

; 2560 8 ¢ 1 i OUTPUT: 

3; 2561 833 1: NONE. 

3 266 834 1! 

Ps $20 835 1 i IMPLICT OUTPUT: 

3; 2564 836 1! Formatted message Line in the alarm buffer. 

; 2565 $535 13 

: 2566 838 1: SIDE EFFECTS: 

3 seer $523 1: NONE. 

; 2568 840 1! 

: 2569 841 1 i ROUTINE VALUE: 

; 2570 arf 1 i NONE . 

$ $27) 843 1 i- 

3 276 844 1 

3; 257 845 2 BEGIN ! Start of PUT_PKT_LOGNAM 
: 2574 3846 

: 2575 4 MAP 

3; 2576 848 RECORD_PTR : REF $BBLOCK; 

3; 2577 3849 

3; 2578 $n20 BIND 

: 2579 851 LOGNAM_BUF = UPLIT(BYTE(ZASCIC * Log Name: ")); 

; 2580 3036 

3; 2581 85 LOCAL 

3 3383 $828 PKTPTR : REF S$BBLOCK; 

3; 2584 Ht PUT STRING PF Banton f aaa 

; 2585 3857 PKTPTR = .PKT_PO] PKT_INDEX_TABLNSASK_PKTTYP_LOGNAM-1]); 
: 2387 S28 a # PKTPTRENSASW. PET Siig = RSASK _PKTHDR LENGTH) GTRU 0 

5 4 rt] Npur _PKT_STRING(.RECORD_PTR, NSASK_PKTTYP_LOGNAM, 1) 

FY $255 ae6 PuT INE LOS? ~ASCIC (NONE BUF); 

: $23! 86 sf -NEWCINE (0) 

: 2592 4 1 END ! End of PUT_PKT_LOGNAM 


-PSECT $PLITS,NOWRT,NOEXE ,2 
09 3A 65 6D 61 4E 20 67 6F 4C 09 OB 00998 P.AFM: ASCII <11><9>\Log Name:\<9> : 
LOGNAM_BUF = PLAFM 


4 
ope ssecuRITY 16 fei 01:48:50 yayett BLine=82_v4.0-742 roel 


.PSECT SCODES,NOWRT,2 
0000 00000 PUT_PKT_LOGNAM: 


«WORD Save nothing ; 3818 
0000' cf 9F 00002 PUSHAB Lo NAM_BUF ; 3856 
0000v cr 1 FB 000 CALLS PuT STRING rAScie : 
0 0000" CF 3¢ 9008 MOVZWL okt. INDEX +10 : 3857. 
20 0000'cF40 bd 901 MOVL  PKT sPoINtER.} Ta kone PKTPTR : | 
0 FE AO 016 MOVZWL =-2(PKT : 3858) 
50 04 C2 OOO1A SUBL2 . : | 
—E 13 0001D BEQL : 
1 pb 001 PUSHL #1 + 3860 
6 0D 00021 PUSHL : 
04 aC DD 00023 PUSHL CORD PTR : 
0000v CF FB 00026 CALLS #3, PUT_PKT_STRING : 
9 11 00028 BRB : 
0000 CF 9F 0002D 1$ PUSHAB NONE_BUF ; 3862 
0000v CF QI FB 00031 CALLS #1, PUT_STRING_ASCIC 5 
E D4 00036 28 CLRL. 0s = §P) + 3863 
0000v CF 01 FB 00038 CALLS #1, PUT_NEWLINE : 
04 0003 RET + 3864 


; Routine Size: 62 bytes, Routine Base: S$CODE$S + 0B7D 


H 
OPCSSECURITY 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-742 Page 94 
705000 12-808-1 382 3:85:38 OPCOM. SRCISECURITY.B3251 ° (29). 
; oe 65 } ROUTINE PUT_PKT_VOLNAM(RECORD_PTR) : NOVALUE = : 
; 36 89 1 !+4 ; 
: 44 rt : FUNCTIONAL DESCRIPTION: : 
: 2599 70 1! This routine formats a security alarm message Line from the : 
; oR 14 i first VOLNAM packet in the security auditing record. : 
: 260 B78 1 i INPUT: : 
; 260 874 1! RECORD_PTR : The security alarm record address. : 
; 2604 375. (1 
; 2605 26 1 ! IMPLICIT INPUT: 
3 2606 on NONE. 
; 2607 73864 
; 2608 879 1 ! OUTPUT: 
; 2609 880 1! NONE. 
; 2610 881 1! 
; 2611 th) 1! IMPLICT OUTPUT: 
; oie 885 1! Formatted message Line in the alarm buffer. 
; so 3884 1! | 
3 2614 3885 1 ! SIDE EFFECTS: 
3 2615 886 1! NONE. 
; 2616 ert 1} 
; 2617 888 1 ! ROUTINE VALUE: 
: 618 3889 1 | NONE . 
; $690 891 1_ 
; ge! $59 é BEGIN ! Start of PUT_PKT_VOLNAM 
; 2638 894 P | 
3 oct say RECORD_PTR : REF $BBLOCK; 
: 5656 3897 2 LOCAL 
: a4 Saos § PKTPTR : REF S$BBLOCK; 
3 3609 3900 2 BIND | 
3 $630 5903 VOLNAM_BUF = UPLIT(BYTE(ZASCIC ' Vol Name: ")); 
: 3632 908 2 PUT_STRING_ASCIC(VOLNAM_BUF); | 
3 26 3904 PKTPTR = .PKT_POINTER_TABL.PKT_INDEX_TABLNSASK_PKTTYP_VOLNAM-1)); 
; os 3906 If (.PKTPTRUENSASW_PKT_SIZE] - NSASK_PKTHDR_LENGTH) GTRU 0 
; O38 rai : PUT_PKT_STRING(.RECORD_PTR, NSASK_PKTTYP_VOLNAM, 1) 
; rH 3909 PUT_STRING_ASCIC (NONE _BUF); 
: 2639 910 2 PUT_NEWCINE(0); 
; 2640 911 1 END; ! End of PUT_PKT_VOLNAM 


-PSECT $PLITS,NOWRT,NOEXE,2 
09 3A 65 6D 61 4E 20 6C 6F 56 09 OB O09A4 P.AFN: .ASCII <11><9>\Vol Name:\<9> : 
VOLNAM_BUF = P.AFN 


4 
1b-sen-1984 01:4 


-PSECT 


OPCSSECURITY 
v0s=000 


0000 00000 PUT_PKT_VOLNAM: 
WORD 


0000" CF 9F 
00004 


44 ¢ 
000'CF40 
FE 


MVM 
oooo™ 


04 
0000v CF 
0000° 1$: PUSHAB 


2$: CLRL 


0000v CF 
0000v CF 


SOCOCOCOOCOOOOOCOOCOOoO 
SoOoOoQoooooooooooo 
oe loo lofolololololololololq) 


WAANNNONONIN 223320 


ONOOMOCOCrOCO > on 
mM = M OWN NMS OOT 
ono TO] "O00 ]—OWoOWwWT 
FOO WDOVCTUWNOOCOW 
TOo-TTOw" "0 F&F COW 
v 
—_ 
“ 
=x 
— 


; Routine Size: 62 bytes, Routine Base: S$CODES + OBBB 


=< 
“oS 


30 AX-11 Ol igeeze ve 
OPCOM.SRCIJSECURIT 
SCODES,NOWRT,2 


Save nothing 
v0 AM_BUF 
Te PUT STRING, Asci¢ 
PKI SPOINTER. A Prathol. PKTPTR 
bag) aaa RO 


#) 

RECORD PTR 

#3, PUT_PKT_STRING 
ONE _BUF 

#1, PUT_STRING_ASCIC 
-(§P) 

#1, PUT_NEWLINE 


Page 95° 


(29). 
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H re 318 ! ROUTINE PUT_PKT_VOLSNAM(RECORD_PTR) : NOVALUE = ° 
; 2644 9146 1 S44 : 
; 2645 915 1 ! FUNCTIONAL DESCRIPTION: ; 
; ong 218 1! : 
3; 264 91 7! This routine formats a security alarm message Line from the . 
3 oe a8 : } first VOLSNAM packet in the security auditing record. ; 
; 2650 920 1! INPUT: $ 
; $2) ; 1 : RECORD_PTR : The security alarm record address. : 
; 638 9 : 1 ! IMPLICIT INPUT: : 
3 2654 924 1! NONE. ; 
; 2655 925 1! : 
; 628 9 $ 1 ! OUTPUT: : 
3; 265 9 1! ° : 
; 2658 928 1! : 
; 2659 929 1! IMPLICT OUTPUT: : 
; oe9 i : Formatted message Line in the alarm buffer. : 
; 666 9 ; 1 ! SIDE EFFECTS: 
; 266 9 se NONE. 
3 2664 9 1} 
3 2665 935 1 ! ROUTINE VALUE: 
: 2666 936 1! NONE . 
; 2667 3 HA 1 !-- 
; 2668 938 1 
3; 2669 939 BEGIN ! Start of PUT_PKT_VOLSNAM 
; 2670 940 
3 2671 941 
3 ore 94 RECORD_PTR : REF S$BBLOCK; 
; 267 94 
3; 2674 944 IND 
; or? Ber VOLSNAM_BUF = UPLIT(BYTE(ZASCIC ' Vol Set Name: ‘')); 
3 2677 94 PUT_STRING_ASCIC(VOLSNAM_BUF) ; 
; 2678 948 2 PUTPKT STRING(.RECORD_PTR, NSASK_PKTTYP_VOLSNAM, 1); 
: 2679 949 2 PUT_NEWCINE(O); 
; 2680 950 1 END; ! End of PUT_PKT_VOLSNAM 

-PSECT SPLITS,NOWRT,NOEXE,2 
3A 65 6D 61 4E 20 74 65 53 20 6C 6F 56 O09 of po980 P.AFO: .ASCII <15><9>\Vol Set Name: \<9> 3 


VOL SNAM_BUF = P.AFO 


-PSECT $CODES,NOWRT,2 
0000 00000 PUT_PKT_VOLSNAM: 


«WORD Save nothing 3 4 
0000" CF OF O08 PUSHAB VOLSNAM_BUF 3; 3947. 

0000v CF 1 FB 00006 CALLS #1, PUT_STRING_ASCIC : 
1 Dd 00008 PUSHL #1 > 3948 


e+ 3 iad 


p=1986 $2330: ¥ OPCOM. SRC SSECURIT 


« PRB Oe, 
0000v CF 03 FB \$ CALLS a PUT. PRT STRING 
D4 1 CLRL (SP) 
0000v CF 01 FB 00019 CALLS ni, PUT _NEWL INE 
04 OOO1E RET 


; Routine Size: 31 bytes, Routine Base: SCODES + OBF9 


rae 8 


4 
OPCSSECURITY 18-Sep-1984 01:48: AXe11 Bliss-32 V4.0-742 Page 98 
905 000 Wr-se0-43ke PE:8R:s2 «FABRA Sh igec te Ve.05 732 9° 31) 


: 26 3 3 1 ROUTINE PUT_PKT_VOLPRO(RECORD_PTR) : NOVALUE = : 
: ) § 1 !4¢ : 
5 5 , 2 ! FUNCTIONAL DESCRIPTION: : 
; 26 9 § Fe This routine formats a security alarm message Line from the : 
; 26 957 1! first VOLPRO packet in the security auditing record. ; 
; 2689 328 1! : 
; 2690 959 1°! INPUT: : 
$ ved 44 : } RECORD_PTR : The security alarm record address. : 
; 269 oe8 1 ! IMPLICIT INPUT: : 
3: 2694 965 1! NONE. ‘ 
; 2695 964 1! . 
; O98 965 1 ! OUTPUT: : 
; 269 966 1! ° | : 
; 2698 96 1! ‘ 
3; 2699 968 1 ! IMPLICT OUTPUT: ‘ 
; 2700 969 1! Formatted message Line in the alarm buffer. ; 
; 2701 970 1! ; 
; 270 971 1 ! SIDE EFFECTS: | ; 
; 270 972 1! NONE. : 
3; 2704 973 1! | : 
3; 2705 974 1 ! ROUTINE VALUE: : 
3; 2706 975 1! NONE. ; 
3; 2707 976 1 !-- : 
3; 2708 977 1 3 
3 2709 978 2 BEGIN ! Start of PUT_PKT_VOLPRO ; 
: 2710 979 ; 
3; 2711 980 MAP : 
; ars 981 RECORD_PTR : REF $BBLOCK; | ; 
3: 271 98 : 
3: 2714 98 LITERAL : 
3 2715 984 VOLPRO_BUF_SIZ = 27; : 
3 Siig 985 3 
3: 2717 986 IND : 
3; 2718 987 VOLPRO_BUF = UPLIT(BYTE(ZASCIC ° Vol Pro: ">)3 : 
3; 2719 988 

: 2720 989 LOCAL 

3; 2721 990 PROT _BUF : VECTORCVOLPRO_ BUF _SIZ,BYTE) 

3 136 44 INITIAL (BYTE (ZASCTI *§:RWED,O:RWED,G:RWED,W:RWED')), 

3 2724 393 PROT_DESCR : S$BBLOCKCDSC$C_S_ BLN) 

: 192 994 PRESET(COSC$W_LENGTH] = VOLPRO_BUF SIZ, 

: 2726 995 pettenty ced = DSCSK_BTYPE_T, 

3: 2727 996 DSCSB_CLASS] = DSCSK_CLASS_D, 

$ $is8 997 DSCS$A_POINTER) = PROT BUF) 

3 2729 998 STRING : REF VECTORC,BYTE) INITIAL (PROT_BUFS, 

> 2730 999 BITS : REF BITVECTOR, 

3; 2731 4000 INDEX1 : LONG, 

: rag 4001 INDEX2 : LONG, 

3: 273 400 FLAG : LONG; 

3 Pee 400 

3; 2735 4004 } . 

i 2736 4005 : Move the label field into the message buffer and form a pointer to the 

: sae rhs volume protection bits. 


M A. 
OPCSSECURITY ° 
v0e=006 1e-$ep-198¢ 12:50:55 LOPcon. Sac SSecunl t¥.03¢1 Pase sit 


.PSECT $PLITS,NOWRT,NOEXE,2 
AFP: ASCII <10><9>\Vol Pro:\<9> : 
sAFQ: <ASCII \S:RWED,O:RWED,G:RWED,W:RWED\ ; 


09 3A 6F 72 50 20 6C 6F 56 09 OA 


00 

00 
47 20 44 45 57 52 3A 4F 2C 44 45 57 52 3A 53 009C 
44 45 57 52 3A 57 2C 44 45 57 52 3A 009 


; 1008 PUT_STRING_ASCIC(VOLPRO_BU 3 
; £00 BITS = .PKT_POINTER my tiets Ber _INDEX_TABLNSASK_PKTTYP_VOLPRO-1)); | ; 
: tort i A bit set indicates no access so for each bit set convert the access : 
: 1018 letter to a blank. 3 
; 404 iNCR INDEX? FROM 0 TO 3 DO | ; 
3 4015 BEGIN 3 
: 4016 FLAG = 0; | ; 
3 4017 3 —_INCR INDEX2 FROM 0 TO 3 DO | ; 
; 730 4019 4 IF .BITSC. INDEX1*4+, INDEX2] | ; 
: 57 4021 & PROT_BUFL.INDEX1#7#2+. INDEX2] = ° * ; 
: $538 4092 ELSE | 
i $88 1056 3 en sri | 
: 2756 4025 IF NOT .FLAG THEN PROT_BUFC.INDEX1*7#1] = '; ; 
+r ie : 
5 $20 rt Compress the field by removing blanks and move it into the alarm buffer. | 3 
; sree 1080 3 STRIP_BLANKS_STRING(PROT_DESCR); : 
: 376 4031 PUT_STRING ASCIDCPROT _DESCR); : 
; $f6 4032 2 PUT_NEWLINE(O 3 
3 2764 4033 1 END; ! End of PUT_PKT_VOLPRO : 


VOLPRO_BUF = P.AFP 


-PSECT SCODE$,NOWRT,2 


003C 00000 PUT_PKT_VOLPRO: | 
WORD 33xe R2,R3,R4,R5 ; 3951 


SE 24 ¢ 000 SUBL : 
08 AE 0000" CF 1B 000 MOVC A -AFQ, PROT BUF : 3991) 
6E 0200018 8F DO 0000 MOVL =f Lah shhe- PROT BESCR : 3997. 
04 AE 08 AE 9€ 0001 MOVAB PROT_BUF, PROT BESCR+4 : 
50 08 AE 9E hg MOVAB PROT BUF, STR Ringe é | 
0000°' CF 9F OODIC PUSHAB VOLPRO ; 4008 | 
0000V CF 01 FB 000 2 CALLS PUT_STRING_ASCIC ‘ 
50 000' CF 3C 000 MOVZUL PKt_INDEX TAB+24, R : 4009 
55 0000'CF40 DO OO02A MOVL PKT- POINTER _TABLROJ, BITS 5 
50 04 900 9 CLRL —sINDEX1 : 4019 | 
54 D4 0032 1$ CLRL i 6 : 4016 | 
53 50 : 8 00034 ASHL _HNDEX. R3 : 4019 
D4 000 CLRL Ke : 
51 53 52 C1 0003A 28: ADDL3 INDEX R3, RI : 


N be 
OPCSSECURITY 16-Sep : AX-11 Bliss-32 V4.0-742 Pa e 00 
90880 12-8 Sep 71982 9}: $8:20 YOPCOM. SR cise Secor! TH 832;1 . | 
5 51 £1 0003 BBC RI. (BITS), 3$ : | 
gf $3 07 i 0043 ULL We INDEX! R1 i 4021 
OA AEGI 26 * 0948 nove re Neeot _BUF +2ER1] ; | 
54 01 »D $08 3$: MOVL t 4023) 
£3 32 05 F 005 i$: AOBLEQ #3" TNDEX2, 2$ t 4017 | 
‘ 4 €8 0005 BLBS FL : 4025 | 
51 0 7 €5 0005A MULL3 {nDEX1 ; | 
09 AE41 9 39 0005 MOVB te PROT “Gur s10R13 : | 
CB 50 F3 00063 5$ AOBLEQ , 1$ + 4014) 
SE DD 90067 PUSHL + 4030 
0000v CF gi FB 00069 CALLS i, STRIP_BLANKS_STRING ~~ 
0000v CF 01 FB 00070 CALLS #1, PUT_STRING_ASCID ; 
7E D4 00075 CLRL oe + 4032 
0000v CF 01 FB 00077 CALLS #1, PUT_NEWLINE : 
04 0007¢ RET ; 


; Routine Size: 125 bytes, Routine Base: S$CODE$ + 0C18 
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i 
i 
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i 

i 
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i IMPLICIT INPUT: 
NONE . 

i OUTPUT: 

NONE. 
IMPLICT OUTPUT: 
i 

i 

i 

i 

i 

i 
a 


SIDE EFFECTS: 
NONE . 


! ROUTINE VALUE: 
NONE. 

BEGIN 

LITERAL 


7) 
RECORD_PTR 
IND 
MOUF LG_BUF 


OWN 
KEYWORD_VEC 


T: 
RECORD_PTR 


: VECTORCNUM 
IAL 


ROUTINE PUT_PKT_MOUFLG(RECORD_PTR) : 


FUNCTIONAL DESCRIPTION: 


: The security alarm record address. 


NUM_MOUFLG_BITS = 29; 
: REF $BBLOCK; 


= UPLIT(BYTE(ZASCIC ' 


INIT 
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This routine formats a security alarm message Line from the 
first MOUFLG packet in the security auditing record. 


Formatted message Line in the alarm buffer. 


' Start 


Mount Flgs: 


"FOREIGN 
* GROUP 
*NOASSIST 


SYSTEM 
*WRITECHECK 
*WRITETHRU 


of PUT_PKT_MOUFLG 
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gs:\<9> 


<13><9>\Mount Fl 
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09 3A 73 67 6C 46 20 74 6E 75 6F 


oO 
o 


4D 09 OD OO9ES P.AFR: 
00 


-ACCE 
“EXP 
“Ser 
BCHE 
>\INIT_ALL 
>\ INIT" CONT 
VOLO 


Vv 
\OVR 
\OVR 

1>\OVR_ 


11>\0VR 

11> 

11> 

11>\REA 
1>\INIT 


<11>\FOREIGN 
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OPCSSECURITY 
vOe=000 


0 20 47 48 4 2 a B QOB3C P.AGT: I] <11>\INTERCHG  \ 
$5 3 3 20 $5 3 3 33 38 E 23 OB i P.AGU: I] <11>\CLUSTER \ 
-PSECT SOWNS,NOEXE,2 
00000000* 00000000’ 00000000' 00000000° 00000000' 00000000 0094 KEYWORD_vEC: 


; Routine Size: 52 bytes, 


Routine Base: 


SCODES + 0C95 


-ADDRESS P. ener P.AFT, P.AFU, P.AFV, P.AFW, 


00000000 00000000" 00000000" 00000000' £00008 . £0 00000; 88 OCAC P.AFX, P.AFY, P.AFZ, P.AGA, P.AGB, 
00000000" 00000000" 00000000' 00000000° 00000000’ B88. OCC4 P.AGD, P.AGE, P.AGF, P.AGG, P.AGH, 
00000006" 00000000’ 00000000' 00 444s 0000000" 00000000° OOCDC P.AGJ, P.AGK, P.AGL, P.AGM, P.AGN, 
00000* 00000000* 00000000" 00000000* 00000000" OOCF4 P.AGP, P.AGQ, P.AGR, P.AGS, P.AGT, 
MOUF LG_BUF = P.AFR 
0000 00000 PUT_PKT_MOUFLG: 
-WORD Save nothing 
0000° CF 9F 00002 PUSHAB a LG_BUF 
0000vV CF 01 FB 00006 CALLS ure STRING ASCIC 
50 0000" CF 3C 00008 MOVZWL ext INDEX_TAB+26, RO 
50 0000'CF40 00 00010 OVL PKT gone VEC TABLROJ, PKTPTR 
0000" CF 9F 00016 PUSHAB KEYEOR 
50 DD OOO1A PUSHL KTPT 
1D DD O00IC PUSHL 
0000v CF 03 FB pOoie CALLS » PUT_KEYWORDS 
0000" CF 9F 0002 PUSHAB ALARM DESCR 
0000v CF 01 FB Bone! CALLS #1, STRIP_BLANKS_TRAIL 
7E D4 0002C CLRL -(SP) 
0000v CF 01 FB sits CALLS #1, PUT_NEWLINE 
04 000 ET 


Bete Se Se Se Se Se Se Be Se Be Se Se Se 


5 
OPCSSECURITY 16-Se 1984 01:48:5 AX-11 Bliss-32 
v0e-000 14-Sep-19 4 93:4 :5 OPCOM. SRCISECUR 


; ef 4113 ROUTINE PUT_PKT_DMOUFLG(RECORD_PTR) : NOVALUE = 

3 8 4115 1 !44 

3: 2849 £18 1 ! FUNCTIONAL DESCRIPTION: 

; 2850 4117 1! 

3 Be) 4118 1! This routine formats a security alarm message line from the 
3 o2¢ 1138 : first DMOUFLG packet in the security auditing record. 
3; 2854 4121 1 ! INPUT: 

: tH } ¢ : RECORD_PTR : The security alarm record address. 
b4 Bee 4126 1 ! IMPLICIT INPUT: 

; 2858 4125 1! NONE. 

; 2859 4126 1! 

; 2860 4127 1 ! OUTPUT: 

; 2861 4128 1! NONE. 

3 £66 4129 1! 

4 see 41350 1 ! IMPLICT OUTPUT: 

3; 2864 4131 1! Formatted message Line in the alarm buffer. 

; 2865 41 ¢ 1! 

3; 2866 413 1 ! SIDE EFFECTS: 

; spe? 4134 1! NONE. 

; 2868 4135 1! 

3; 2869 4136 1 ! ROUTINE VALUE: 

; 2870 4137 1! NONE . 

: 2871 4138 1 !-- 

s sere 4139 1 

3 287 4140 2 BEGIN ' Start of PUT_PKT_DMOUFLG 
3: 2874 4141 2 

: 2875 ai3s 2 LITERAL 

; 2876 414 § NUM_DMOUFLG_BITS = 4; 

3; 2877 4144 

; 2878 4145 2 MAP 

3; 2879 4146 § RECORD_PTR : REF $BBLOCK; 

; 2880 4147 

; 2881 4148 2 BIND 

: sons 4149 2 DMOUFLG_BUF = UPLIT(BYTE(ZASCIC ° Mount Flgs: Dy 
: 288 4150 2 

3 Sane 4151 2 OWN 

; 2885 £126 § KEYWORD_VEC : VECTORCNUM_DMOUFLG_BITS]) 

3; 2886 415 INITIALCUPCIT(BYTETZASCIC “NOUNLOAD ')), 

: 1H 4154 2 UPLIT(BYTE(ZASCIC ‘UNIT ‘)) 

: 2888 4155 2 UPLIT(BYTE(ZASCIC "ABORT ')S 

> 2889 4136 UPLIT{BYTE(ZASCIC "CLUSTER')S); 

:; 2890 415 

; 2891 4158 LOCAL 

: B36 4159 PKTPTR : REF S$BBLOCK; 

3; 289 4160 

3 2894 4161 PUT_STRING_ASCIC(DMOUFLG BUF); 

3; 2895 2136 PKTPTR = .PKT POINTER _TAB ~PKT_INDEX TABLNSASK_PKTTYP_DMOUFLG-1)); 
3; 2896 416 PUT_KEYWORDS (RUM DMOUFLG_BITS PKTPTRONSASW_PKT_DMOUFCG], KEYWORD_VEC); 
3 2897 4164 2 STRIP_BLANKS TRATL(ALARM~DESCR); 

; 3943 4165 PUT _NEWLINE (0); 

3; 2899 4166 1 END; ! End of PUT_PKT_DMOUFLG 


a2 
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e § 
OPCSSECURITY 16-Sep-1984 01:48: AX-11 Bliss-32 v4 ,0- 742 Page 105 
9055050 1er0p-13be 95:88:88 = FaNe aN Bhi SSeFe Yt 95 $2, oe 193 
-PSECT $PLIT$,NOWRT,NOEXE,2 
09 3A 73 67 6C 46 20 74 6E 75 6F 4D 09 OD B54 P.AGV: ASCII <13><9>\Mount Flgs:\<9> : 
20 46 41 GF 4C GE 55 4F 4E 09 0864 P.AGW: “ASCII <9>\NOUNLOAD \ : 
20 54 49 4E 55 05 $855 P.AGX: ASCII <S>\UNIT \ ; | 
39878 -BLKB 
20 54 52 4F 42 41 06 O0B7B P.AGY: ASCII <6>\ABORT \ : 
0087F -BLKB 
52 45 546 53 55 4C 43 O07 O0B80 P.AGZ: ASCII <7>\CLUSTER\ ; 
.PSECT $OWNS,NOEXE,2 
00000000" 00000000" 00000000' 00000000 00D08 KEYWORD_VEC: 
“ADDRESS P.AGW, P.AGX, P.AGY, P.AGZ ; 
DMOUF LG_BUF = P.AGV | 
| 
.PSECT $CODE$,NOWRT,2 
} 
0000 00000 PUT_PKT_DMOUFLG: | 
«WORD Save nothing 3 4113) 
0000" cF 9F 00002 PUSHAB DMOUELG_BUF : 4161 | 
0000v CF 01 FB 00006 CALLS PUT~STRING_ASCIC ; 
50 0000' CF %3C 0000B MOVZWL Pkt NDEX_TAB+28, RO t 4162) 
50 0000°CF40 DO 00010 MOVL = PKT “POINTER. TABLROJ, PKTPTR : 
0000" CF 9F 00016 PUSHAB Key YQORD_VEC 3 4163. 
50 DD OOO1A PUSHL PKTPT : 
04 DD O001C PUSHL 
0000v CF C3 «FB 00018 CALLS #3, PUT_KEYWORDS : 
0000" CF 9F 0002 PUSHAB ALARM DESC > 4164. 
0000v CF 01 FB 00027 CALLS STRIP_BLANKS_TRAIL : 
7E D4 0002C CLRL P : 4165 | 
0000v CF 01 FB 000¢E CALLS #1, PUT_NEWLINE : 
04 0003 RET : 4166 | 


; Routine Size: 52 bytes, Routine Base: $CODE$ + OCC9 


5 
at +3 ail 18-Sep-19 4 93:68:30 AX-1 


1 Bliss-32 V4.0-742 Page 106 
14-Sep-1984 OPCOM. SRCISECU . a3 


RITY.B32;1 


30) } ROUTINE PUT_PKT_STRING(RECORD_PTR, PKTTYP, PKTNUM) : NOVALUE = 
308 1 1+4 
441 ! FUNCTIONAL DESCRIPTION: 
a's 1 This routine moves the string data from the Nth packet, (Specified 
4 : by PKTNUM), of type PKTTYP into the alarm buffer. 
90 1 UT: 
1 RECORD_PTR : The security alarm record address. 
1 PKTTYP : The packet type of the data to move. 
! PK TNUM : Specifies which packet of type PKTTYP to use. 


IMPLICIT INPUT: 
NONE. 


' IMPLICT OUTPUT: 
Packet data is moved into the alarm buffer. 


SIDE EFFECTS: | 
NONE . 


OOOODOOOOOODOOO 


MMR 3 2 
50.09 09 09 09 09 09 09 09 09 09 SIN NI NIN NINN NNO OO 


ROUTINE VALUE: 
NONE . 


' 

i 

' 

' 

i QUTPUT: 
NO 
' 

' 

i 

a 


BEGIN ! Start of PUT_PKT_STRING 


WIN $C OONOAVE WN “ODO ONOUS Ww O0@ 


IAI.AIWIWMIonoronononony 


p 
RECORD_PTR : REF SBBLOCK; 


CAL 

PKTPTR : REF $BBLOCK, 
ADDRESS : REF S$BBLOCK, 
SIZE : LONG; 


POPOPIPOPEPoPoPoPononononofnononopononononorn 


OOOOOOOOOOODOOOO 


1 
Form pointer to packet and get the size and data address. 


PKTPTR = .PKT_POINTER_TABL.PKT_INDEX_TABL.PKTTYP=1]+.PKTNUM-1); 
SIZE = .PKTPTRCNSASW_PKT SIZEJ~= NSASK_PKTHDR_LENGTH; 
ADDRESS = PKTPTR NSAST_PRT_DATA); 


i The maximum string size that can be placed on one Line is defined by 
! DATA_LINE_SIZE. If the string is longer than DATA_LINE_SIZE it will be 
split accross multiple Lines. 


WHILE .SIZE GTRU DATA_LINE_SIZE DO 
BEGIN 


PIPIPIPIPIAPIMININININPINININIARY 0 a nt tt tt tt ot ot 0 ot ot ot 
SOOOCCCOCOCOCOOCOOOOOoOovONO 


i While the size remaining is more than one Line of data, move one Line 
! of data followed by a carriage return Line feed and three tabs into 
: the alarm buffer. Adjust the size remaining and data address. 


Fo oe ot at at ot nt ot pt pt et et et et tte eee ee ek ek kk ek ek ee ek eek et St et et et et et et et et et et et 
WR 20 OONOA UE WN 0 OD NO UE WIN 9 ODOM ES WIN $0 OONAUE WW (OO CONOUSWWN OOO 
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ee 


RONEN tt 


Mononofofroropnonony 


| 


8 ie «3 a 


; Routine Size: 


Sd kek ek ee ee ek ee ee 


WN" OOONOUS 


69 bytes, 


PUT ett ATA 


S 
AD DRESS” =, 
ae NEWL INE 


DAT 
IZE = .SIZE - 
ADD 
(1); 


WMATA 
NWMNMOOCCO 


0000Vv gf 


0000v CF 


0000v CF 


Routine Base: 


H R 
1e-Sep-1986 12:30:55 EOPcom. SRCSSECURITY 08001 


LINE_SIZE, . ADDRESS) 
BATA_CINE S17E; 
ESS * DATA_LINE_SIZE; 


-ADDRESS) ; 


000C 00000 PUT_PKT_STRING: 
WwW RD 


08 Ac 
vat that 3C 00006 
0000'CF40 
FE 


SOOMOOWOWU N10 & | 

NOW] NN NWONO LOOM 
ONG "IOONOO-VCITIFOWIOO 
FO -DVI ONMwgoolrW-ONnroo 
SoOOoOoooooooooooo°ooo 
oOOooooooooooooocooo 


SCODES + OCFD 


= 
bad 


™m 
wn 


; Move the remainder of the string into the alarm buffer. 
PUT_STRING(.SIZE, 
1 END 


! End of PUT_PKT_STRING 


Save R2,R3 
MO PKTTYP, R 
MOVZWL PKT INDEX TAB-2CROJ, RO 


KTRUM 
M PKT_POINTER_TAB-4CROJ, PKTPTR 
MOVZWL -2(PKTPTR), “SIZE 

SUBL2. #4 


L SI 
MOVL PKTPTR, ADDRESS 
SIZE, #55 
PUSHL ADDRESS 


CALLS #2, PUT STRING 
SUBL . E 
ADDL #55, ADDRESS 


PUSHL 

CALLS #1, PUT_NEWLINE 
BRB 1$° 

PUSHR #*M<R 


CALLS #2, Pot. STRING 
RET 
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; 4 4 ROUTINE PUT_KEYWORDS(NUM_BITS, BIT_VEC, KEYWORD_VEC) : NOVALUE = : 
: 4g3e | its : 
$ 2 : FUNCTIONAL DESCRIPTION: : 
; 4 5 1 i This routine translates a bit vector of bits into their keyword ; 
3 : re ! } equivalents and moves them into the alarm buffer. : 
: 4 4g 1 | INPUT: : 
3 4245 1! NUM_BITS : The number of bits to translate. : 
: 4244 1! BIT VEC : Address of the vector of bits to translate. : 
; 46245 1! KEYQORD_VEC : Address of a vector of addresses which point to : 
3 : 28 : ASCIC keyword strings. : 
; 4 48 1 | IMPLICIT INPUT: : 
3 ? re : } NONE. : 
; 4251 1} OUTPUT: : 
: 4252 1! NONE. $ 
: 4 3g 1! ; 
; 4254 1! IMPLICT OUTPUT: ; 
$ : 3? : The keyword equivalents of the bits are moved into the alarm buffer. : 
; 4 3$ 1! SIDE EFFECTS: | : 
3 : 28 : NONE. : 
; 4260 1 | ROUTINE VALUE: ; 
3 4261 1! NONE. 3 
: eseg | i oat 
; 4264 2 BEGIN ! Start of PUT_KEYWORDS | : 
; $001 366 5 map | 
: 00¢ 4 $$ BIT VEC : REF BITVECTOR, ; 
; 300 : os KEYQORD_VEC : REF VECTORE,LONG); ‘ 
: 3005 4270 2 LOCAL F 
; 3006 4271 INDEX : LONG, PF 
3; 3007 427 COUNT : LONG INITIAL(O), $ 
; 3008 427 ADDRESS : LONG, 3 
s sts : ie SIZE : LONG; : 
: 3011 4276 2 INCR INDEX FROM 0 TO .NUM_BITS-1 DO ; 
Bio an : 
: 14 4279 i If the bit is set then move the corresponding keyword into | é 
; + ? 30 } the alarm buffer. | : 
: 19 4 Be if .BIT_VECC. INDEX] F 
: 8 428 THEN : 
; 301 4 4 BEGIN | : 
: 3020 4285 4 : : 
; 3021 a6 2 : Get the keyword size and address. Update the current Line count. ; 
; 058 isan SIZE = .(.KEYWORD_VECC.INDEX])<0,8,0>; | F 
> 3024 4289 4 ADDRESS = .KEYWORD VECL.INDEX] + 1; | : 
; 30 4290 4 COUNT = .COUNT ¢ .SIZE; 3 


OE QsGsHd MRC Suisettattate2, «= meg 


; Routine Size: 68 bytes, Routine Base: S$CODE$S + 0D42 


-1984 OPCOM.SR CURITY. 832; 1 
4291 4 ' | : 
4 35 4 ! If the addition of this keyword would cause this Line to exceed ; 
4295 4 ! DATA_LINE_SIZE, then move a carriage return Line feed and three ; 
2 9¢ 2 tabs into the alarm buffer and correct the current Line count. : 
4 96 4 IF .COUNT GTRU DATA_LINE_SIZE 3 
r 4 THEN | : 
4 38 STRIP_BLANKS_TRAIL(ALARM_DESCR); | 3 
4300 PUT_NEWLINE(T); 3 
4301 = SIZE; | 3 
Ne soe | i 
2 Be 2 Move the keyword into the alarm buffer. | ; 
4 0¢ 4 PUT_STRING(.SIZE, .ADDRESS); 3 
430 3 END; 3 
4308 END; : 
4309 1 END; ! End of PUT_KEYWORDS : 
| . 
| : 
003C 00000 PUT_KEYWORDS: F 
«WORD Save R2,R3,R4,R5 : 46234 3 
55 D4 00002 CLRL COUNT + 4264 3 
53 01 CE 00004 MNEGL #1, INDEX 3: 4282) 3 
33 11 00007 BRB 38 : ; 
30 08 eC 3 €1 00009 1$: BBC NDEX, @BIT , 3$ : 3 
0 Oc Bc43 +0 90006 MOVL Are ruoRe VECLINGEX). RO : 4288 : 
54 60 9A 0001 MOVZBL (RO), SIZE ; : 
3 01 AO 4 00016 OVAB  1(ROS, ADDRESS + 4289 : 
54 CO OOO1A ADDL2 = SIZE coun NT : 4290 3 
7 38 D1 00010 CMPL COUNT, #55 + 4296 ; 
1 1B 00020 BLEQU 2$ 3 ; 
0000" CF 9F 00022 PUSHAB ALARR DESC 3 4299 3 
O000v CF 1 FB 00026 CALLS . STRIP CBLANKS_ TRAIL 3 3 
1 DD 00028 PUSHL : 4300 8 
0000v CF 1 FB 002D CALLS Pur oNEwe INE 3 3 
55 4 pO 000 MOVL Sle > 4301 : 
52 DD 99 2$ PUSHL press > 4306 ; 
54 DD 00 PUSHL i : 3 
0000Vv cf 02 FB 98 ) CALLS PUT_STRING : 3 
3 046 ac F 3 3$ AOBLSS NUM_BITS, INDEX, 1$ : $376 | 3 
04 0004 RET 3: 4509 | 3 


Kk § | 
OPCSSECURITY 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-742 Page 110 
yon +000 127808713 4 93:85:28 OPCOM. SRCISECURITY.B3251 . dey 
: § : 19 } ROUTINE PUT_STRING(SIZE, ADDRESS) : NOVALUE = ° 
; 3 4 1g 1 !44 : 
; ? \? : : FUNCTIONAL DESCRIPTION: : 
: ? 4315 1: This routine moves a string specified by SIZE and ADDRESS into the | 3 
3 § 4 1 ,: alarm buffer. Fy 
; 4317 1! ; 
3; 3054 ‘ 13 1 ! INPUT: : 
; 3055 4319 1! SIZE : The size of the string to move. | 3 
3 b28 ? y : ADDRESS : The address of the string. : 
; 038 43¢¢ J | IMPLICIT INPUT: | : 
3 B28 ? z : ALARM_DESCR : The string descriptor of the alarm buffer. | ; 
: 3061 4325 1 | OUTPUT: ; 
3 4 4 $ 1! “ 3 
: 306 4 1! ; 
3 3064 4328 1°! IMPLICT OUTPUT: ; 
; 3065 ? > : } The string is moved into the alarm buffer and the descriptor is updated. : 
: $06? 4331 1 j SIDE EFFECTS: | : 
; 069 tt a ; : 
; 3070 4 1 ! ROUTINE VALUE: : 
; 3071 4335 1! NONE. : 
3 B76 4 $$ 1 !-- | F 
3; 3507 4337 1 ; 
3; 3074 4 $3 BEGIN ! Start of PUT_STRING : 
: 3075 4339 | 3 
3 B78 4340 : 
: 3077 4341 SIZE : LONG; | ; 
: 3079 2328 5 CHSMOVE(.SIZE, .ADDRESS, .ALARM_DESCRCDSCSA_POINTER]) ; | ; 
; 3080 4344 ALARM_DESCREDSC$W_LENGTH] = .ALARM_DESCRCDSC$W LENGTH) - .SIZE; | 
:; 3081 4345 ALARM_DESCRCDSCSA_POINTER] = .ALARM_DESCRCDSCSA_POINTER] + SIZE; 
; 82 4346 1 END; ! End of PUT_STRING 
003C 00000 PUT_STRING: 
WOR Save R2,R3,R4,R5 : 4310) 
0000° oF 08 BC 04 AC 28 00002 MOVC SIZE, @ADDRESS, @ALARM_DESCR+4 3 4343. 
0000° CF 04 AC A2 OOOOA SUBW SIZE, ALARM_DESCR > 4344 | 
0000° CF 04 aC CO 00010 ADDL SIZE, ALARM_DESCR+4 3: 4345 
04 00016 RET : 4546 


; Routine Size: 23 bytes, Routine Base: S$CODE$ + 0D86 


OPCSSECURITY 
9055056 
; 4347 1 
; 3085 4 8 1 
; 434 1 
; 30 4350 1 
3; 30 4351 1 
; 3089 4 § 1 
; 3090 4 1 
; 3091 4354 (1 
3 O36 4355 1 
; 309 4 2$ 1 
3 bod 4 1 
; 309 4 23 1 
3 p28 4 1 
; 309 4360 1 
; 3098 4361 1 
; 3099 4 66 1 
; 3100 43635 1 
3; 3101 4364 1 
3 10¢ 4365 1 
; 310 4366 1 
3; 3104 67 1 
; 3105 4368 1 
3; 3106 4369 1 
3; 3107 4370 1 
; 3108 4371 1 
; 3109 4372 1 
; 3110 4373 1 
3; 3111 4374 1 
: a 4375 2 
3; 311 4376 
3 3114 4377 
; 3115 4378 
; 3116 4379 
; 3117 4380 
; 3118 4381 
; 3119 438 
; 3120 4383 1 
0000' 


; Routine Size: 533 bytes, 
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ROUTINE PUT_STRING_ASCIC(ASCIC_PTR) : NOVALUE = 
'ee 
| FUNCTIONAL DESCRIPTION: 
i This routine moves an ASCIC string specified by ASCIC_PTR into the 
} alarm buffer. 
i INPUT: 
ASCIC_PTR : The address of a counted ascii string. 
i IMPLICIT INPUT: 
ALARM_DESCR : The string descriptor of the alarm buffer. 
; OUTPUT: 
i _ 
i IMPLICT OUTPUT: 
° he string is moved into the alarm buffer and the alarm 
dl te is updated. 
i SIDE EFFECTS: 
NONE . 
i ROUTINE VALUE: 
NONE. 
BEGIN ! Start of PUT_STRING_ASCIC 
P | 
ASCIC_PTR =: REF VECTORC,BYTE); | 
CHSMOVE ( .ASCIC prRCO} ASCIC -PTRETI. ALARM DESCREDSCSA_ POINTER)); 
ALARM_DESCRCEDSC$W_LENGTH] = sALARM_DESCRLDSCS$W TH] = sASCIC PTR(O); 
ALARM ~DESCR DSC$A_ SINTERS = ALARA OBESCREDSCSA™ POINTER] 3 -ASCIC_PTRLO); | 
END; ! End of PUT_STRING_ASCIC 
} 
| 
007C 00000 PUT_STRING_ASCIC: 
WORD Save R2,R3,R4,R5,R6 : 4347 
56 04 AC D0 00002 MOVL  ASCIC_PTR, R6 > 4380. 
50 6 9A 90006 ROvzBL (R6), RO F 
DF 01 A6 0 ¢8 0009 MOVCS RO, 1(R6), @ALARM_DESCR+4 ; | 
50 $6 9A 00010 MOVZBL (R64), ; 4381, 
0000" CF 50 a2 0001 SUBW2 RO ALARM_DESCR : | 
50 6 9A 00018 MOVZBL R : 4382 | 
0000" CF 0 CO 0001B ADDL2 ROS ALARM_DESCR+4 ; 
04 00020 RET > 4383 | 


Routine Base: 


SCODES + 0D9D 


LE ee — ee 7 


5 
OPCSSECURITY 1e-se 1984 01:4 AX=11 Bliss-32 V4.0-742 Page 112) 
vOL=800 10 860-198¢ 12:80:85 — LOPcom. SRCSSECORITY BSds1 9° (38) 
: ; ; : ; ! ROUTINE PUT_STRING_ASCID(DESCR_PTR) : NOVALUE = 
; | 
; 3124 4 1 !+¢ | 
; : 5 ? : FUNCTIONAL DESCRIPTION: 
; 31 ; 4 5 1/ This routine moves a string specified by DESCR_PTR into the 
; 3128 4390 1 / alarm buffer. 
3; 3129 4391 1! 
; 31350 6 3 1 | INPUT: 
: : 1 ? + : DESCR_PTR : Address of the string descriptor. 
; 31 : 4395 1! IMPLICIT INPUT: 
: ; ¢ 2 a8 : ALARM_DESCR : The string descriptor of the alarm buffer. 
3; 31 4398 1 | OUTPUT: | 
7 31 4399 1! NONE. 
; 3138 4400 1 | 
; 3139 4401 1! Lit! Rages 
; 3140 mrt} 1! an | is moved into the alarm buffer and the alarm descriptor 
; 3141 4403 1: update | 
; 166 4404 1! 
3; 314 4405 1: SIDE EFFECTS: 
3 31446 4406 1 | NONE. 
3; 3145 4407 1! 
; 3146 4408 1 ! ROUTINE VALUE: 
; 3147 4409 1! NONE . 
; 3148 4410 1 i- 
3: 3149 4411 1 
; 3 rh 2 BEGIN ! Start of PUT_STRING_ASCID 
3 3152 4414 E MAP 
; 13? rede § DESCR_PTR : REF $BBLOCK; 
; 3186 4417 § CHSMOVE (.DESCR er eette LENGTH], .DESCR_PTRCDSCS$A_PO NTERI, -ALARM_DESCRCDSC$A_POINTER]) 
; 3156 4418 ALARM_DESCRIDSUSwW GTH] = .ALARM DESCREDSC$W_LENGTH .DESCR PTREDSC Su LENGTA); 
3; 3157 4419 2 ALARM_DESCRCDSCSA_ ~pOINTER) = AALARA OOESCREDSCSRe POINTER] + ,DESTR PTRCODSCSW_LENGTH); 
; 3158 4420 1 END; ! End of PUT OS TRING A ASCID 
007C 00000 PUT =STRING ~ ha 
Save R2,R3,R4,R5,R6 : 4384 
56 04 AC DO 00002 hove DESCR_PTR, R : 4417 | 
0000° OF 04 B66 66 28 B88 att (R6),~a4(R6), @ALARM_DESCR+4 : 
0000" CF 66 A2 0000D SUBW (R6), ALARM _BESCR > 4418 | 
50 66 3C beers MOVZWL (R6), R 3: 4419 
0000° CF 50 ¢O 0001 ADDL2 RO, ALARM_DESCR+4 ; 
04 OOO1A RET : 0 


; Routine Size: 27 bytes, Routine Base: $CODE$ + ODBE 


160 4421 
161 44 ¢ 
196 44 
16 4424 
164 4425 
165 44 $ 
198 44 
16 44 8 
168 44 
169 4430 
170 4431 
171 44 ¢ 
1% 44 
17 4434 
174 4435 
175 44 $ 
176 44 
177 4438 
178 4439 
179 4440 
180 4441 
181 444 
13 444 
18 4444 
184 4445 
185 4446 
186 4447 
187 4448 
3188 4449 
189 4450 
190 4451 
191 445 
136 445 
319 4454 
3194 4455 
3195 4456 
$139 4457 
197 4458 
198 4459 
199 4460 
200 4461 
201 446 
3202 446 
203 4464 
204 4465 
205 4466 


SPLIT IAIAINI|AIAIA IAD IAIN IIIA at i i a ed td td ed 
mm -_ 


N 5 

16-Sep-1986 01:48:5 AX=1 
12-808-1982 93:38:2 

ROUTINE PUT_NEWLINE (FLAGS) 


ee 


i FUNCTIONAL DESCRIPTION: 


This routine moves a carriage return, Line feed, and optionaily 3 tabs 
into the alarm buffer. 


INPUT: 
FLAGS 


: NOVALUE = 


: When 0 only the CRLF is put in the buffer. If 1, a 
CRLF and three tabs are moved into the alarm buffer. 


IMPLICIT INPUT: 
ALARM_DESCR 


OUTPUT: 
N 


: The string descriptor of the alarm buffer. 


IMPLICT OUTPUT: 
The data is moved into the alarm buffer and the alarm descriptor 
is updated. 


SIDE EFFECTS: 
NONE. 


1 Ol igente 
OPCOM.SRCISECU 


ROUTINE VALUE: 
NONE . 
BEGIN ! Start of PUT_NEWLINE 
OWN 
CRLF TABS : VECTORES,BYTE] INITIAL(BYTE(13,10,9,9,9)); 
LOCAL 
SIZE : LONG; 
IF .FLAGS 
HEN 
SIZE = 5 
ELSE 
SIZE = 2; 
CHSMOVE(.SIZE, CRLFTABS, .ALARM_DESCRCDSCS$A_POINTER)); 
ALARM _DESCREDSC$W_LENGTHJ = .ALARM DESCRCDSC$W_LENGTH) - .SIZE; 
ALARM_DESCRIDSCSA_POINTER] = .ALARM_DESCRCDSCSA_POINTER] + SIZE; 
ND; End of PUT_NEWLINE 
-PSECT SOWNS,NOEXE,2 


09 09 09 OA OD 00018 sancibeacnas 


»PSECT 


13, 0, 9. 9 9 


SCODES,NOWRT ,2 


<oO 
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v0G- 14-Sep-1984 12:50:5 OPCOM. SRCJSECUR 32;1 (39 
007C 00000 PUT_NEWLINE 

. Save fe R3,R4,R5,R6 : 4421 
95 A £9 000 BLB ELAG is * 3 4458 | 

Q 0 0 MOVL @# Size + 4460 

1 0 BRB es" ; 

56 p B 1$: MOVL. #2, SIZE + 446 

0000" oF 900° CF é OE 2$: MOVC3 SIZE, CRLFTABS, @ALARM_DESCR+4 + 446 
00" CF 6 A 16 SUBW2 SIZE. A ALARM _DESCR + 6464 

000" CF 6 CO 0001B ADDL2 SIZE, ALARM~DESCR+4 + 4465 

64 00020 RET + 4466 


; Routine Size: 33 bytes, Routine Base: $CODE$S + O0DD9 


Nee —_ a 


6 
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} 
ROUTINE STRIP_BLANKS_TRAIL(DESCR_PTR) : NOVALUE = | 


OPCSSECURITY 
v0o=000 


tee 
FUNCTIONAL DESCRIPTION: 


This routine removes trailing blanks from the string described 
by DESCR_PTR. 


INPUT: 
DESCR_PTR : The address of a string descriptor. 


: IMPLICIT INPUT: 
NONE. 


Mrronrorrorrrnrrror 
St 4 OOO 
on 

Sa ee 

Pere 

~ oo 

—o ™~ 


WIN — OOODNAVUES WN —“OOONAUEWN—OO0 
> 
= 
co 
_ 


OUTPUT: ; 
NONE 


IMPLICT OUTPUT: ‘ 
Trailing blanks are removed from the string described by DESCR_PTR and 
the descriptor size field is updated. 


SIDE EFFECTS: 
NONE . 


AW 


ROUTINE VALUE: 
NONE . 
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. 

' | 
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' | 

i 

i 

_ | 

. 
| 
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WWIWWIWnononono none nonornory 


BEGIN ! Start of STRIP_BLANKS_TRAIL 
P 
DESCR_PTR =: REF S$BBLOCK; 


INDEX : LONG INITIAL(O); | 


L DESCR_PTRIDSCSA_POINTER] - 1 - -0> EQLU " ' DO INDEX = .INDEX + 1; 
CR_PTRCDSC$SO_LENGTH] = .DESCR_PTRCDS + INDEX; 

C CDSCSA_POINTER] = .DESCR_PTRCD 1 = . INDEX; 

; nd of STRIP_BLANKS_TRAIL 


= 
- 
o 
oO 
PEI IIAP IIIA IIIA IIIA at rt Bk a td od 2 od od 


mooc 
zmm=x 


Bae he Fe Se Se Se Be Fe Be we Se Se Se Be Se Se Be Oe Ss Oe Be Se Se Se Se Se Se Os oe Se Se Se Se OH Se Se Be Se es 


WAN AAA AAAI Ow 


ouuNe 
ma oo 


0004 00000 STRIP_BLANKS_ TRAIL: 
WwORB 


04 
FF 


50 
51 04 Ad 
20 


VIMIMNWNO YP VP ui 
PRINT HS TIO 


oe BC 


oorr—-9o—- DFC o 
Fr] WO 
@ 
=z 
m 
o 
™m nm 
wv 
Oe Oe Oe Oe Oe Oe ee ee ee ees 
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s-32 V4.0- 


SRCS 


=11 
COM. 


tor 


Routine Base: S$CODES + ODFA 


32 bytes, 


2 
: 


8 ted +3 ala 
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14-Sep-1984 1 5 OPCOM.SRCIJSECURITY.832;1 (4 
re ROUTINE STRIP_BLANKS_STRING(DESCR_PTR) : NOVALUE = 

14 

3 

3 

3 

3 


144 
' FUNCTIONAL DESCRIPTION: 


This routine removes blanks and compresses the string described 
by DESCR_PTR. 


INPUT: 
DESCR_PTR : The address of a string descriptor. 


IMPLICIT INPUT: 
NONE. 


OUTPUT: 
NONE ' 


IMPLICT OUTPUT: 
Blanks are removed and the string is compressed. The descriptor 
size field is updated. 


SIDE EFFECTS: 
NONE. 


ROUTINE VALUE: 
NONE . | 


BEGIN ! Start of STRIP_BLANKS_STRING 


P 
DESCR_PTR : REF S$BBLOCK; | 


LOCAL 
STRING : REF VECTORC BYTE) INITIAL(.DESCR_PTRCIDSCSA_POINTER]), 
yaad : INITIAL(O), 


00 0909 09 SII NSN NN NIAAA AAAI 
WN — SO OONAVSWN HOO DNAUESWN (OVO ONOULSWNO 
yo oP or or or or oF or or or ot or et ek ek ek et tt tt et et tt et et et tk et et et et et et et et et et et > > 


Ay hab eah Ab Ab dh 4h dh ah db dh dh tb ob db dbedh th sb ad alah al leleleie eee we) 
PV B BB BEE EEE EAN rnononononononononon — 
PWN 9 OONA VUE WIN HO OONA UE WN 0 OONOAOULS WN OCONO US WNO0O~) 
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84 : LONG; 
86 INCR INDEX FROM 0 TO .DESCR_PTRCDSC$W_LENGTHJ-1 DO 
88 IF .STRINGC.INDEX) EQLU ' ' 
89 THEN 
30 BLANK_COUNT = .BLANK_COUNT + 1 
92 STRINGL. INDEX=.BLANK_COUNT] = .STRINGC. INDEX); 
94 DESCR_PTRIDSC$W_LENGTH] = .DESCR_PTRCDSC$W_LENGTH] - .BLANK_COUNT; 
3295 END; ' End of STRIP_BLANKS_STRING 


003C 00000 STRIP _BLNES STRING: 


. Save R2,R3,R4,R5 7 4 
52 04 ac 00 00002 MOVL DESCR_PER R2 : 4 
51 % A2 DO 00006 MOVL  4(R2)7 STRING ; 


F 6 
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7052000 14-Sep 71982 9}: 25:29 OPCOM.SR RCISE SECURITY.832;1 . (41) | 
55 Re 0 7 CLAL BLANK_ COUNT : : 
26 b¢ C 6 C MOVZWL (R2),- 3 4545. ’ 
0 CE OO00F MNEGL’ Ais INDE ; 4547 ; 
13 8 12 BRB 3$ : ; 
20 6041 91 14 1$: CMPB ie oniuloat #32 3 ; 
9% 12 Baié BNEQ : : 
5 D6 OOOIA INCL BLANK. COUNT 3: 4549 ; 
92 11 gait BRB : $ 
53 50 5 C3 QOOIE 2$: SUBL3 BLANK_COUNT DEX, R3 3 4551) : 
6341 6041 90 000 MOVB CINDER) UTRINGT (R3) STRING ; ; 
—9 50 54 rs 0027 3$: AOBLSS R4, INDEX, 1$ : 4545 : 
62 55 Ae 00028 SUBW2  BLANK_COUNT, (R2) 7 4553) : 
04 0002E T 3 4554) : 
; Routine Size: 47 bytes, Routine Base: SCODES + OETA | : 
| ; 
; 3296 4555 : 
: 3297 4556 END ! End of SECURITY : 
; 3298 4557 0 ELUDOM : 
; PSECT SUMMARY ; 
: Name Bytes Attributes ; 
: SPLITS 952 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 3 
: SOWNS 357 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; SCODES 3657 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
3 Library Statistics | ; 
° | 
Pe es co ee ts ee RD eee me Symbols -------- Pages Processing ; 
; File Total Loaded Percent Mapped Time : 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 125 0 1000 00:01.8 | ; 
; “$538 $pUAD8, COPCOM.OBJJOPCOMLIB.L32;1 633 22 3 43 00:00.7 : 
: COMMAND QUALIFIERS ; 
: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SECURITY/OBJ=OBJ$:SECURITY MSRC$:SECURITY/UPDATE=(ENHS$: SECURITY) : 


Size: 3657 coge + 6309 data bytes 
Run Time: 01:27.6 


OPCSSECURITY 
v04 


Elapsed T 046:41.4 
Lines/CPU ihe HH ¢§ 
Lexemes/(PU-Min: 197 

Y Used: 372 pages 
Compilation Complete 
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